Impedir a abertura de múltiplas instâncias de aplicativo VB

Question

Estou trabalhando no aplicativo VB6, que está conectado ao MS Access Database, por isso não quero permitir que o usuário abra várias instâncias do meu aplicativo, pois isso criará conflitos e alterará o banco de dados conectado. Além disso, se o usuário tentar abrir outra instância, a instância em execução atualmente deverá ser focada. Como posso alcançar isso? Desde já, obrigado.......... :-)

Answer 1

Usar 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