vb控件每隔一分钟读取txt文本文件中的相应字符?

添加一个timer1控件，代码如下： Dim i, j As Integer '定义全局变量Private Sub Form_Load()i = 0 '初始化显示行timer1.Interval = 60000 '定时器一分钟End SubPrivate Sub Timer1_Timer()i = i + 1j = 0Dim strLine As StringOpen app.path & "\abc.txt" For Input As #1Do Unt