FORM USER LOGIN

FORM USER LOGIN

Private sub btnok_click(ByVal sender As System.Object, ByVal e AsSystem.EventAgs) Handels btnok.click
   
    if UCase (txtUser.text) = "ADMIN'' And UCase ( txtPassword.text) = "1234" then
      Dim FormMenu As New frmmenu
       FormMenu.show()
       me.Hide()
Else
      MsgBox("User dan Password yang masukkan Salah.", Msgboxstyle.Exclamation)
      txtPassword.text = ""
End If
End Sub

Private sub btncancel_click(ByVal sender As System.Object, ByVal e AsSystem.EventAgs) Handels btncancel.click
   End
End sub
End class