Yes.

VB Code:
  1. Dim x As New Timer

  2. AddHandler x.Tick, AddressOf mytickhandlingsub

  3.  
  4. Private Sub mytickhandlingsub(ByVal sender As Object, ByVal e As System.EventArgs)

  5.         'do your stuff here

  6.     End Sub