デバックを実行して結果を見ると 
プログラムの途中までしか動きません。 
エラーも警告も出ていません。 
詳しい方教えて下さい。 
 
コード 
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
 
 
        Dim i As Integer 
 
        'While i < 10 
 
 
 
        'MsgBox("123") 
        Dim Reader As New IO.StreamReader("C:\sw001.log") 
 
 
 
        TextBox1.Text = Reader.ReadLine() 
        RichTextBox1.Text = Reader.ReadLine() 
        Reader.Close() 
        Select Case RichTextBox1.Text 
 
            Case "red" 
                RichTextBox1.BackColor = Color.Red 
            Case "blue" 
                RichTextBox1.BackColor = Color.Blue 
            Case "yellow" 
                RichTextBox1.BackColor = Color.Yellow 
        End Select 
'ここまでで止まってしまいます。 
 
        Dim Reader2 As New IO.StreamReader("C:\sw002.log") 
        TextBox1.Text = Reader2.ReadLine() 
        RichTextBox1.Text = Reader2.ReadLine() 
        Reader.Close() 
        Select Case RichTextBox1.Text 
 
            Case "red" 
                RichTextBox1.BackColor = Color.Red 
            Case "blue" 
                RichTextBox1.BackColor = Color.Blue 
            Case "yellow" 
                RichTextBox1.BackColor = Color.Yellow 
        End Select 
 
        'System.Threading.Thread.Sleep(1000) 
 
        'MsgBox("123") 
        Dim Reader3 As New IO.StreamReader("C:\sw003.log") 
        TextBox1.Text = Reader3.ReadLine() 
        RichTextBox1.Text = Reader3.ReadLine() 
        Reader.Close() 
        Select Case RichTextBox1.Text 
 
            Case "red" 
                RichTextBox1.BackColor = Color.Red 
            Case "blue" 
                RichTextBox1.BackColor = Color.Blue 
            Case "yellow" 
                RichTextBox1.BackColor = Color.Yellow 
        End Select 
        i = i + 1 
        'System.Threading.Thread.Sleep(1000) 
        'End While 
 
    End Sub