Vb6 Timer - compile fejl

VB6 timer. Jeg har fået noget VB6 kode. Den stopper ved
Timer1.Interval = 1000
og siger

Run-time error '424'
Object required

Skal jeg erklære noget i forbindelse med min timer. Søger løsning eller link til info om vb6 timer.


Const SrchPath As String = "D:\"

Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
    File1.Visible = False
    File1.Path = SrchPath
End Sub

Private Sub Timer1_Timer()
    Dim i As Integer
    Dim f As String
   
    File1.Refresh
   
    For i = 0 To File1.ListCount - 1
        f = File1.List(i)
        If (Left(f, 1) = "W") And Mid(f, 6, 1) = "L" And Mid(f, 11, 1) = "." Then
            If IsNumeric(Mid(f, 2, 4)) And IsNumeric(Mid(f, 7, 4)) And _
              IsNumeric(Mid(f, 12, 3)) Then
               
                MsgBox "Filen: " + vbCrLf + f + vbCrLf + "opfylder kriterierne."
            End If
        End If
    Next i
   
End Sub