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

[oregon]

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