''' <summary>
    ''' Pause der laufenden Threads anfordern
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub cmdPause_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdPause.Click
        cmdPause.Enabled = False
 
        'Klasse anhalten...
        With myMultiThread
            If .IsPaused Then
                .Continue()
            Else
                .Pause()
            End If
        End With
    End Sub

Private Sub myMultiThread_Continued(ByVal sender As Object, ByVal e As _
  mThreading.MultiTaskProcessor(Of System.IO.FileInfo).MTP_ThreadEventArgs) _
  Handles myMultiThread.Continued
        lvProtokoll_AddItem("Setze fort...")
        cmdPause.Text = "Pause"
        cmdPause.Enabled = True
    End Sub
    Private Sub myMultiThread_Paused(ByVal sender As Object, ByVal e As _
      mThreading.MultiTaskProcessor(Of System.IO.FileInfo).MTP_ThreadEventArgs) _
      Handles myMultiThread.Paused
        lvProtokoll_AddItem("Pause...")
        cmdPause.Text = "Fortsetzen"
        cmdPause.Enabled = True
    End Sub