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 = "iskul" And PasswordTextBox.Text = "setia" 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
Title : Form login
Description : Public Class LoginForm1 Private Sub OK_Click (By Val sender As System.Object, ByVal e As System Event Args) Hendle...