Public Sub StarteTimer()
..
..
Timer1.Start()
End Sub
 
Private Sub BG1_DoWork(ByVal sender As System.Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) Handles BG1.DoWork
        While 1
            HidDevice.Read(AddressOf StartTimer)
        End While
End Sub
 
Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
 
  ListBox1.Items.Add("Timer1")
End Sub