LOGIN

Nama : SRIWAHYUNI
NIM : 19010020

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click

        Hide()

        Login.Show()

        If txtID.Text = "sriwahyuni" And

                txtPassword.Text = "1234567" Then

            Login.Show()

        Else

            MessageBox.Show("ID atau Password salah", "Konvirmasi",

                      MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        MsgBox("Apakah anda yakin mau keluar?", MsgBoxStyle.YesNo, "Peringatan!")

    End Sub

    Private Sub txtPassword_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPassword.TextChanged

        Login.Show()

    End Sub

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

    End Sub

End Class