Parola korumalı bi proje yapacaksanız işinize yarayabilir düşüncesiyle can sıkıntısından yazdığım bir kod.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
'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