Vb6 1秒后从文本文件更新列表框

我有一个包含以下行的文本文件：

11/01/2013  00:57:59    01  00  0238    POST UNIT ID

11/01/2013  00:58:07    01  80  0136    PRE UNIT ID

11/01/2013  00:58:16    01  80  0136    PRE UNIT ID

11/01/2013  00:58:22    01  00  0238    POST UNIT ID    

我想在列表框中读取并显示文本行，但test.txt是一个日志文件，每隔一秒钟就会在文本中插入一行新行。使用我的计时器方法，相同的行会重复。更新列表框以显示文本文件中写入的最新行的最佳解决方案是什么？我认为这是一种文本文件的更新

Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

    filenum = FreeFile                      
    filepath = "C:\test.txt"

    Open filepath For Input As filenum       
    Do Until EOF(filenum)                   
        Line Input #filenum, LineText       
        List1.AddItem LineText         
    Loop                                    
    Close filenum

End Sub

---

在添加日志文件之前，请清除列表框

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000

End Sub
Private Sub Timer1_Timer()

filenum = FreeFile                      
filepath = "C:\test.txt"

            Open filepath For Input As filenum       
            List1.Clear
            Do Until EOF(filenum)                   
                Line Input #filenum, LineText       
                List1.AddItem LineText         
            Loop                                    
            Close filenum
End Sub

---

George的回答是正确的，但根据文件中的项目数量，重新绘制项目需要很长时间，可能比1000毫秒的轮询时间还要长。我同意jac的观点-从设计角度来看，在列表框中显示日志数据不是一个很好的主意，除非您能保证文件始终很小。放入文本框中。