egeozdmr
🏅Acemi Tasarımcı🏅
- Katılım
- 28 Ocak 2011
- Mesajlar
- 50
- Tepkime puanı
- 0
Private Sub Form_Load()
If InputBox("Şifreyi Giriniz : ") <> "grafikerler.net" Then
MsgBox ("Şifreyi bilmediğiniz için forma giriş yapamaktasınız.")
Text1.Locked = True
End If
End Sub
Yukardaki kodları forma yerleştirin
Şifreyi değiştirebilirsiniz.