Intendi una cosa del genere?

Public Class FormBar
Dim ResultDate As Integer
Dim infoReader As System.IO.FileInfo

Private Sub FormBar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FormSet.Visible = False
Me.Visible = True
Red_Pan.Visible = False
infoReader = My.Computer.FileSystem.GetFileInfo("D:\RoulHistory \client_last100.txt")
freq_agg.Enabled = True
freq_agg.Start()
End Sub

Private Sub Controlla_Date()
If Date.Now.Minute = infoReader.LastWriteTime.Minute 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.Now.Minute <> infoReader.LastWriteTime.Minute Then
Red_Pan.Visible = True
End If
End If
End If
End Sub

Private Sub end_of_time(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles freq_agg.Tick
Controlla_Date()
freq_agg.Start()
End Sub
End Class

NON FUNZIONA LO STESSO....TALE E QUALE A PRIMA