Inserisci nel modulo del form principale il seguente codice:
codice:
Private Sub Form_Initialize()
   If App.PrevInstance Then
       MsgBox "L'applicazione è già in esecuzione.", vbInformation
       Unload Me
   End If
End Sub
.