Programalama > VISUAL BASIC.NET

'Ş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