'Yazar: CanCeL
'Visual basic şifreli form
 
Private Sub Form_Load()
Dim parola As String 'Form içerisinde atanmış String değeri belirtiyoruz
Me.Hide 'Form1'i gizle
parola = InputBox("Lütfen güvenlik parolasını giriniz.", "Güvenlik Anahtarı") 'Parola isteme ekranı (InputBox)
If parola = ("123456") Then 'Parola bölümü
Form2.Show 'Parola doğru ise yapılacak işlem
Else 'yada
MsgBox ("Hatalı Parola girdiniz.") 'yanlış ise hata ver 
End If 'yada bitir.
 
End Sub