declare dispatcherTimer inside the class
Dim WithEvents dt As System.Windows.Threading.DispatcherTimer
then create instance of dispatcherTimer whereever you want, set time span
dt = New System.Windows.Threading.DispatcherTimer()
dt.Interval = New TimeSpan(0, 0, 0, 0, 500) '' 500 Milliseconds
dt.Start()
and here is your handler
Private Sub dt_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles dt.Tick
' Do Stuff here.
End Sub
*converted code to VB from here, though I have not tested it..it may work for you..