Public Shared Sub Main()
        Dim firstInstance As Boolean
        REM Dim mut As New System.Threading.Mutex(firstInstance)
        Dim mut As System.Threading.Mutex
        mut = [u]New System.Threading.Mutex(False, ID, firstInstance)
If firstInstance = False Then
            MsgBox("noch nicht gestartet", MsgBoxStyle.Information, _
              "Start_Main")
            Application.Run(New Anfang_v00)
        Else
            MsgBox("schon gestartet", MsgBoxStyle.Information, "Start_Main")
        End If
 
    End Sub

Public Shared Sub Main()
        Dim firstInstance As Boolean
        REM Dim mut As New System.Threading.Mutex(firstInstance)
        REM Dim mut As System.Threading.Mutex
        Dim mut As System.Threading.Mutex([u]False, ID, firstInstance)
        If firstInstance = False Then
            MsgBox("noch nicht gestartet", MsgBoxStyle.Information, _
              "Start_Main")
            Application.Run(New Anfang_v00)
        Else
            MsgBox("schon gestartet", MsgBoxStyle.Information, "Start_Main")
        End If
 
    End Sub