Impedir la apertura de múltiples instancias de la aplicación VB

Question

Estoy trabajando en la aplicación VB6, que está conectada a la base de datos de MS Access, por lo que no quiero permitir que el usuario abra varias instancias de mi aplicación, ya que esto creará conflictos & alter conectado base de datos. Además, si el usuario intenta abrir otra instancia, la instancia que se está ejecutando actualmente debe estar enfocada. ¿Cómo puedo lograr esto? Gracias de antemano .......... :-)

Answer 1

Uso 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