关于vb代码的问题需要高手帮忙

Open OnlineFile For Append As #FileHandle

Set txtf = fs.OpenTextFile(App.Path & "\Race.xls", ForAppending, True)

OneLineResult = Left(Top5Liste.SelectedItem.SubItems(1) & " ", 5) & vbTab & " " & Left(Top5Liste.SelectedItem.SubItems(2) & " ", 20) & vbTab & " " & Left(Top5Liste.SelectedItem.SubItems(4) & " ", 30) & vbTab & vbTab & " " & Left(Top5Liste.SelectedItem.SubItems(6) & " ", 30)

txtf.WriteLine OneLineResult

OneLineResult = Left(Konstatierliste.SelectedItem.SubItems(1) & " ", 5) & vbTab & " " & Left(Konstatierliste.SelectedItem.SubItems(2) & " ", 20) & vbTab & " " & Left(Konstatierliste.SelectedItem.SubItems(4) & " ", 30) & vbTab & vbTab & " " & Left(Konstatierliste.SelectedItem.SubItems(6) & " ", 30)

txtf.WriteLine OneLineResult

Close #FileHandle

并这段代码应该是在下面的定时器中的。
且这个定时器的interval属性值应该是3000(毫秒)
Private Sub Timer1_Timer()

End Sub
定时器中的代码会根据它的周期interval属性值而自动按周期重复执行。周期为零则不执行。

我也看不出3秒刷新一次的地方,是不是用了定时器Timer?

关于VB的问题 望高手帮忙 关于VB的代码问题 帮忙解释一下!!!关于VB的代码! 关于VB+SQL开发管理系统的一个小问题 VB代码高手请进 高手帮忙修改VB代码 问一个关于VB代码的问题 关于这个VB代码的数组问题 急!VB高手请进,有关VB代码的问题!!! 一段VB代码的问题，VB高手请近来帮帮忙 高手进来帮忙，关于VB的一个问题！