Private Sub tsMainBar_ItemClicked(sender As Object, e As _
  System.Windows.Forms.ToolStripItemClickedEventArgs) Handles _
  tsMainBar.ItemClicked
 
        Select Case e.ClickedItem.Tag
            Case 1 
                ' 
            Case 2 
                Call Starten()
 
        End Select
End Sub

Private WithEvents Fscan As clsFileScan
 
Private Sub Starten()
 
        Fscan= New clsFileScan
 
        Fscan.StartScan()
 
    End Sub

Public Sub StartScan()
 
        RaiseEvent BeginScan(Me, New EventArgs)
 
        Me.WORKER.WorkerReportsProgress = True
        Me.WORKER.WorkerSupportsCancellation = True
        Me.WORKER.RunWorkerAsync()
 
End Sub