Listing Program Login
Public Class login
Private Sub masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk.Click
If nama.Text = "syahru" And password.Text = "123" Then
TM_Syahru_Ichsan.Show()
Me.Hide()
Else
MsgBox("Unknown ID")
nama.Text = ""
password.Text = ""
nama.Focus()
End If
End Sub
End Class
Private Sub masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk.Click
If nama.Text = "syahru" And password.Text = "123" Then
TM_Syahru_Ichsan.Show()
Me.Hide()
Else
MsgBox("Unknown ID")
nama.Text = ""
password.Text = ""
nama.Focus()
End If
End Sub
End Class