Public Shared Sub Main()
         'Wichtiges: Für jedes Programm eine eigene Id  nehmen
        Const idMutex$ = "{165F3D6E-B7A8-4833-B1B1-C12405E9CA2E}"
        Dim Owned As Boolean
        Dim mutex As Threading.Mutex
        Try
            mutex = New Threading.Mutex(True, IdMutex, Owned)
        Catch
            MsgBox(ex.ToString())
            Return
        End Try
 
        If Owned Then
            mutex.ReleaseMutex()
        Else
            MsgBox("Es läuft bereits eine Instanz von XYZ")
            Return
        End If
 
        Dim fm As New frmClient()
        Application.Run(fm)
 
        mutex.Close()
    End Sub