form load bolumune bu kodları yapıştırın bu arada şifre de:telekom066
Dim Password, Pword
Password = "telekom066"
Pword = InputBox("Lutfen şifreyi giriniz.", "Şifre", "")
If Pword Password Then
MsgBox("Uzgunum, şifre yanlış", , "Yanlış")
End
End If
End Sub
End Class
__________________