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