Programı kapatmak için şifreyi girmek gerekiyor. Windows'u kapatmaya çalışsa bile kapatamaz, Task Manager (Görev Yöneticisi) den bile kapatamaz...

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ış İçin Şfre:") <> "abduli_t" Then Cancel = True
Case 3:
MsgBox ("Windows Çalıştığı Sürece Beni Kapatamazsın...")
Cancel = True
End Select
End Sub

tsk paylasm içn.

Sa0l PaylaŞ1m1n 1ç1n

siz de saolun arkadaşlar....