Giusto...
codice:
If Process.GetProcessesByName(Process.GetCurrentProcess().ProcessName).Length>1 Then MsgBox("È già in esecuzione un'altra copia dell'agenda!", MsgBoxStyle.Critical)