Meglio

codice:
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