Form Login

Public Class LoginForm1

Private Sub OK_Click (By Val sender As System.Object, ByVal e As System Event Args) Hendles OK.Click

If UsernameTextBox .Text = “indah” And PasswordTextBox.Text = “siap” Then

MDIParent1.Show ()

Me Visible = False

Else

MsgBox (“Login Gagal, Coba Ulangi Lagi”)

End If

End Sub

Private Sub Cancel_Click

Me.Close ()

End Sub

End Class