Private Const ID As String  = "{71E34384-3A08-4489-B2B1-91D82E372028}"
 
    Public Shared Sub Main()
        Dim mut As System.Threading.Mutex
        Dim firstInstance As Boolean
        Dim main As MainForm
        mut = New System.Threading.Mutex(False, ID, firstInstance)
        If firstInstance Then
            main = New MainForm
            Application.Run(main)
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist