Zweiten Programmstart verhindern

Manchmal ist es wünschenswert, daß ein Programm, falls es schon ein Mal auf dem PC läuft, kein zweites Mal gestartet werden soll.

So gehts:

In die Sub main die Codezeilen schreiben:

If App.PrevInstance = True Then

Antwort = MsgBox("Das Programm läuft auf diesem Computer schon und darf kein 2. Mal gestartet werden!", vbOKOnly + vbInformation, "Kommunikation")

End

End If