Programı kapatmak icin şifreyi girmek gerekiyor. Windows'u kapatmaya calışsa bile kapatamaz, Task Manager (Gorev Yoneticisi) den bile kapatamaz...


Kod:
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("Cıkış İcin Şfre:") "Sifreniz ßuraya" Then Cancel = True Case 3: MsgBox ("Windows Calıştığı Surece Beni Kapatamazsın...") Cancel = True End Select End Sub

__________________