Aşağıdaki kodu form load'a yapıştırın ve deneyin programı ikinci kez açmaya çalıştığınızda hata uyarısı verecektir.
Kod:
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "program zaten açık",vbinformation,"Dikkat"
End
End If
End Sub
Son düzenleme:

