Menu Login Dengan VB.Net 2008

Public Class Form_Login

    Private Sub Pass_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pass.KeyPress
        If Asc(e.KeyChar) = 13 Then
            If User.Text = "LELA" And Pass.Text = "678" Then
                Form_Menu_Utama.Show()
                Me.Hide()
            Else
                MsgBox("Maaf Username dan Password Salah")
                User.Text = ""
                Pass.Text = ""
                User.Focus()
            End If
        End If
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Close()
    End Sub

    Private Sub User_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles User.TextChanged

    End Sub

    Private Sub Form_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

HASIL PROGRAM LOGIN