Private demoThread As System.Threading.Thread = Nothing
 
    Public Sub Entred(ByVal meEntered As Boolean, ByVal _
      AufrufendesSteuerelement As Object)
        Me.demoThread = New System.Threading.Thread((AddressOf Me.EnterThread))
        Me.demoThread.Start()
    End Sub
 
  Private Sub EnterThread()
      ...
  End Sub