From Login

 Form Login Sewa Lapangan Futsal

Deskripsi :
- Label   = Login
- Txtbox1  = nama pengguna
- textbox2 = Usesystempassword  : True
- buttons = login dan log out
- checkbox = periksa katasandi
- ProgressBar1
- Timer1

Coding program
Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TextBox2.Text = "admin" And TextBox1.Text = "admin" Then

            ProgressBar1.Increment(10)

            If ProgressBar1.Value = ProgressBar1.Maximum Then

                Timer1.Stop()

                ProgressBar1.Value = 0

                MsgBox("Your Logged", MsgBoxStyle.Information)

                Menu_Utama.Show()

            End If

        Else

            Timer1.Start()

            ProgressBar1.Increment(10)

            If ProgressBar1.Value = ProgressBar1.Maximum Then

                Timer1.Stop()

                ProgressBar1.Value = 0

                MsgBox("Login Not Succes", MsgBoxStyle.Critical)

            End If

        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If TextBox2.Text = "admin" And TextBox1.Text = "admin" Then
        Else
            MsgBox("KataSandi_ Salah")
        End If

    End Sub
End Class