Public Class Anfang_v00
Public Shared Sub Main()
              Dim firstInstance As Boolean
        Dim mut As New OpenNETCF.Threading.MutexEx(False, ID, firstInstance)
        REM Dim mut As New System.Threading.Mutex(firstInstance)
        REM        Dim mut As System.Threading.Mutex(False, ID, firstInstance)
        If firstInstance 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
 
Private Sub Anfang_v00_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
......programm-code.......
End Sub
End Class