2 Tane TextBox, 2 Tane Label Ekliyoruz ,1 Tane Button Ekliyoruz
VE PROGRAMIMIZA BOYLECE UYELİK SİSTEMİ EKLEMİŞ OLUYORUZ BU ARADA AŞAGIDAKİ KODLARDA TEXTBOX1 E BENİM YAPTIGIMA GORE Null YAZCAKSINIZ TEXTBOX2 YE DE pw YAZCAKSINIZ İKİNCİ FORM ACILIR

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Kullanıcı Adı/Şifre bolumunu doldurun.")
Else
End If
If TextBox1.Text = "Null" And TextBox2.Text = "pw" Then
Me.Hide()
Form2.Show()
Else
MsgBox("Kullanıcı Adı/Şifreniz Yanlış.")
End If
End Sub
End Class
__________________