Impedire esempio apertura multiplo di applicazione VB

Question

Sto lavorando su applicazioni VB6, che è collegato al database di MS Access, quindi non voglio permettere all'utente di aprire più istanze della mia applicazione come questo creerà conflitti e database connesso alter. Inoltre, se tenta utente ad aprire un altro caso, l'istanza attualmente in esecuzione deve essere messo a fuoco. Come posso raggiungere questo? Grazie in anticipo ..........: -)

Answer 1

Usa 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