Prevent öffnende mehrere Instanz von VB-Anwendung

Question

Ich arbeite an VB6-Anwendung, die mit MS Access-Datenbank verbunden ist, so möchte ich nicht zulassen, dass Benutzer mehrere Instanzen meiner Anwendung öffnen, da dies Konflikte erstellen wird & ändern verbunden Datenbank. Wenn der Benutzer versucht, eine andere Instanz zu öffnen, muss die aktuell ausgeführte Instanz ebenfalls fokussiert sein. Wie kann ich das erreichen? Vielen Dank im Voraus .......... :-)

Answer 1

Verwendung App.PrevInstance:

'this code would be in a bas module for start up.' 
Private Sub main() 
    'Check for previous instance and exit if found.' 

    Dim rc As Long 

    If App.PrevInstance Then 
     rc = MsgBox("Application is already running", vbCritical, App.Title) 
     Exit Sub 
    Else 
     frmMain.Show 
    End If 

End Sub