Salve a tutti, spero che qualcuno possa aiutarmi, devo fare un programma che controlla quando un file viene modificato, se viene modificato visualizza una barra verde(form verde) altrimenti faccio partire un timer impostabile allo scadere del quale verifico che non sia ancora stato modificato (il file) e visualizzo un barra rossa (red_panel).
Il codice è questo ma non sembra funzionare la ricorsione che mi serve per controllare continuamente se il file viene modificato, posto la sub di controllo:

Private Sub Controlla_Date()
If date.equals(Date.Now,infoReader.LastWriteTime) Then
Red_Pan.Visible = False
Else
If Red_Pan.Visible = True Then
System.Threading.Thread.Sleep(1000)
Else
System.Threading.Thread.Sleep(FormSet.Timer * 60000)
If date.equals(Date.Now,infoReader.LastWriteTime) Then
Red_Pan.Visible = True
End If
End If
End If
Controlla_Date()
End Sub

Qualcuno sa darmi qualche dritta?