Form Login

Public Class Form1

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

        Password.Passwordchar = "*"

    End Sub

    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click

        If Username.Text = "" Or password.Text = "" Then

            MsgBox("Maaf, Username Dan Password Belum Di Input!!")

            Username.Focus()

        ElseIf Username.Text = "Awal" And password.Text = "123" Then

            MsgBox("Welcome To Menu Utama :-)")

            Username.Show()

            Me.Hide()

        Else

            MsgBox("Maaf, Username Dan Password Salah!")

            Username.Text = ""

            password.Text = ""

            Username().Focus()

        End If

    End Sub

End Class