Visual Basic 6.0 - Şifreli Giriş (Password Login)

Private Sub Form_Load()

Form1.Visible = False

sifre = InputBox("Şifre:", "Giriş", "")

If sifre = "123456" Then

Form1.Show

Else

MsgBox "Şifre yanlış!"

End

End If

End Sub