VB显示text自动切换显示txt下一列

VB显示text自动切换显示txt下一列源代码如下，之前小姚写过一款切换复制软件，有需要的话中可以点击按顺序切换复制文字工具把主要代码分享出来，以便以后使用时更方便。

Dim fileNumber As Integer
Const Filename = "c:\a.txt" '文件名及地址自己改一下
 
Private Sub form_load()
fileNumber = FreeFile
Open Filename For Input As #fileNumber
End Sub
Private Sub Command1_Click()
If EOF(fileNumber) Then
MsgBox "已到文件尾"
Else
Dim strLine As String
Line Input #fileNumber, strLine
Text1.Text = strLine
End If
End Sub