怎樣用vb編寫壹個TXT文本閱讀器？我是新手，最好詳細點再帶上源碼。

Private Sub Command1_Click()

Dim a As String

CommonDialog1.Filter = "文本文件(*.txt)|*.txt"

CommonDialog1.ShowOpen

If CommonDialog1.FileName = "" Then Exit Sub

Open CommonDialog1.FileName For Input As #1

Text1.Text = ""

While Not EOF(1)

Line Input #1, a

Text1.Text = Text1.Text & a & vbCrLf

Wend

Close #1

End Sub