Private Sub Form_Load()
'// Programın bir kopyasının çalışıp çalışmadığı kontrol ediliyor
If App.PrevInstance Then
'// Uyarı yazılıyor
msgBox "Programın bir kopyası zaten çalışıyor!", vbOKOnly, "Program Açılamadı!"
'// Programdan çıkış
End
End If
End Sub