Listing Program FormLogin
Public Class FormLogin
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
If USERNAME.Text = “daniel” And PASSWORD.Text = “123456″ Then
MenuUtama.Show()
Me.Hide()
Else
MsgBox(“Maaf, Password yang anda masukkan salah!”)
USERNAME.Text = “”
PASSWORD.Text = “”
End If
End Sub
Private Sub PASSWORD_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PASSWORD.KeyPress
If e.KeyChar = Chr(13) Then
BTNOK_Click(sender, e)
End If
End Sub
End Class
Hasil Program
Listing Program FormMenuUtama
Public Class MenuUtama
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
Private Sub PelangganToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PelangganToolStripMenuItem.Click
Pelanggan.Show()
End Sub
End Class