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