[VB6] Non avviare il prog se è già in esecuzione

[Harry]

Originariamente inviato da oregon
Meglio

Private Sub Form_Load()
  If App.PrevInstance Then
    MsgBox "l'applicazione è già stata avviata"
    Unload Me
  Else
    ' Il resto della tua Form_Load
  End If
End Sub

Grazie oregon, con l'unload funziona; unico problema:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = (MsgBox("Vuoi davvero uscire dal programma?", vbYesNo, "Uscire?") = vbNo)
End Sub

Ergo anche in questo caso mi chiede se voglio davvero uscire dal programma. Come faccio a fargli fare un'eccezione e farlo uscire e basta?