Ejecutar Sub menu cada 5 minutos

[karlosc]

Buenas noches compañeros tengo una solucion que el usuario al presionar un submenu realiza un ping a varios equipos. lo que requiero es que este proceso se monitoree cada 5 minutos. pero no logro echarlo andar.

aqui el codigo


Private Sub PingToolStripMenuItem_load(sender As System.Object, ByVal e As System.EventArgs) Handles PingToolStripMenuItem.Click
Timer.Interval = 5000
Timer.Enabled = True
AddHandler Timer.Tick, AddressOf Timer_Tick
Timer.Start()
Counter = 0
PingToolStripMenuItem.Enabled = True
CargarToolStripMenuItem.Enabled = False
Dim NetworkSwitchList As List(Of NetworkSwitch) = GetSwitchListFromDGV()
Threading.ThreadPool.SetMaxThreads(30, 400)
For Each switchobject As NetworkSwitch In NetworkSwitchList
Threading.ThreadPool.QueueUserWorkItem(New Threading.WaitCallback(AddressOf DoPing), switchobject)
Next
End Sub
Private Sub Timer_Tick(sender As Object, ByVal e As EventArgs)
Timer.Start()
End Sub

haber quien me da luces donde me quedo

Saludos,
Carlos