programı kapatman için şifre gerekiyor..

[spectacuLar]

Kod: Tümünü seç

Private Sub Command1_Click() 
Unload Me
End Sub 

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
Select Case UnloadMode 
Case 0: 
Cancel = True 
Case 1: 
Cancel = True 
Case 2: 
If InputBox("Çıkıs İçin sfre:") <> "abduli_t" Then Cancel = True 
Case 3: 
MsgBox ("Windows Çalıstıgı Sürece Beni Kapatamazsın...") 
Cancel = True 
End Select 
End Sub