Public Event DateiVeraendert()
 
Public Sub PruefeDatei()
     ' Code zum prüfen der Datei
 
     If Dateiwurdeveraendert > 0 Then RaiseEvent DateiVeraendert()
End Sub

Private objFileCheck As New clsDateichecker
 
Private Sub Form_Load()
       Timer1.Interval = 60000 ' Interval auf 1 Minute festgelegt
End Sub
 
Private Sub objFileCheck_Dateiveraendert()
        Msgbox "Datei wurde eben verändert!"
End Sub
 
Privete Sub Timer1_Timer()
        objFileCheck.PruefeDatei
End Sub