[tamerr89]

Sifreli form

'Şifre:@@@@@@

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Password, Pword

Password = "@@@@@@"

Pword = InputBox("Lütfen şifreyi giriniz.", "Şifre", "&quot

If Pword <> Password Then

MsgBox("Üzgünüm, şifre yanlış", , "Yanlış&quot

End

End If

End Sub

End Class