1.form=şifreli giriş kısmı

2.form=dilediğnizi yazın





formumuza 2 adet text box 1 adet command ve toplam yerleştiriyoruz.

text1=kullanıcı adı

text2=şifre



burdan itibaren yazmaya başlayabilirsiniz...



Private Sub Command1_Click()



If Text1.Text = "dumanova" Then

Form2.Show

Else

MsgBox "Kullanıcı adı yanlış"

End If





If Text2.Text = "123456" Then

Form2.Show

Else

MsgBox "Şifre yanlış"

End If



End Sub



not=text2 kutusunu secip propertis ayarlarından passwordchar kısmına * şeklini katın.O zaman şifreniz yıldız şeklinde gozukucektir.Ayrıca text lerle işiniz bittiği zaman text kutularının caption yazan kısmını silin.Daha az hata verir.
__________________