Для того что-бы Ваш EXE не был запущен одновременно два раза в событие Form_Load впишите:

 

Private Sub Form_Load()
If App.PrevInstance = True Then
   MsgBox "Проект уже запущен!"
  End
End If

 

 

 

                                                                   ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ