Membuat Login Melalui Vb net 2008

Sudah pada tahukan Login itu apa ??? yups , seperti kita login ke e-mail kita sendiri ...
 pasti menggunakan Username dan Password...
kali ini INDAH buatkan Contoh di Vb ya ...

yukk mari mendesain...

 

ini Codingnya ,,,

Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
        If Username.Text = "INDAH" And Password.Text = "123" Then
            MsgBox("Wellcome", MsgBoxStyle.Information, "Login Sukses")
            Me.Hide()
            Form_Menu_Utama.Show()
        Else
            MsgBox("Kombinasi Username dan Password Salah", MsgBoxStyle.Information, "Login Gagal")
            Username.Text = ""
            Password.Text = ""
            Username.Focus()
        End If
    End Sub

    Private Sub Form_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Password.PasswordChar = "***"
    End Sub
End Class

Dan inilah Hasilnya