'Ş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", "")
If Pword <> Password Then
MsgBox("Üzgünüm, şifre yanlış", , "Yanlış")
End
End If
End Sub
End Class