Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" _
   (ByVal lpMutexAttributes As Long, _
    ByVal bInitialOwner As Long, _
    ByVal lpName As String) As Long
 
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As _
  Long
 
Private Const ERROR_ALREADY_EXISTS = 183&
 
Private m_hMutex As Long
Private Const s_NamedMutex As String = "MyExistAppCheck" 'Der Name des Mutex 
' ist eigentlich egal,
                                                         'soll aber in der App 
                                                         ' unikat sein
 
Public Sub Main()
    m_hMutex = CreateMutex(0&, 1, s_NamedMutex)
 
    If Err.LastDllError = ERROR_ALREADY_EXISTS Then
       MsgBox "Das ist der zweite Start der Anwendung"
       Exit Sub
    End If
 
    MsgBox "Das ist der erste Start der Anwendung"
 
    CloseHandle m_hMutex
    'CloaseHandle gibt den Mutex wieder frei, so dass ein dritter Versucht 
    ' wieder
    'erfolgreich die App starten kann. Der vierte Versuch wird wieder geblockt 
    ' usw.
 
End Sub