Как сделать, чтобы программа не была запущена два раза


Для блокировки двойного запуска программы в событие Form_Load нужно прописать:
If App.PrevInstance = True Then
MsgBox "Программа уже запущена!", VbExclamation, "Данная копия будет закрыта"
End
End If