Public Sub New()
    ' Dieser Aufruf ist für den Designer erforderlich.
    InitializeComponent()
 
    ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    mThread = New Thread(AddressOf bitteWarten)
    mReset = New AutoResetEvent(False)
  End Sub
 
  Public Sub StartSomething()
    If mThread.IsAlive Then
      Return
    End If
 
    mThread.Start(Label1)
  End Sub
 
  Public Sub StopSomething()
    If mThread.IsAlive Then
      mReset.Set()
      mThread.Join()
    End If
 
    Label1.Visible = False
  End Sub