Listing Program VB

program dibawah ini adalah untuk membuat username and password. tampilan form nya seperti gambar di atas :

yang terdiri dari tiga form. selamat di coba ...

Listing program

Form 1

Dim user1 As String

Dim pass1 As String

Dim user2 As String

Dim pass2 As String

Private Sub Command1_Click()

pass1 = "1234"

user1 = "lina"

pass2 = Text2.Text

user2 = Text1.Text

If (pass1 = pass2) And (user1 = user2) Then

a = MsgBox("Welcome", vbInformation, "Administrator")

Form2.Show

Form1.Hide

ElseIf (Text1.Text = "") And (Text2.Text = "") Then

a = MsgBox("Masukkan username or password!!", vbCritical, "Administrator")

Else

a = MsgBox("Invalid username or password!!", vbCritical, "Administrator")

End If

Command1.Enabled = False

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Command1.Enabled = True

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Form2.Hide

End Sub

Form 2

Private Sub Command1_Click()

Form1.Show

Form2.Hide

End Sub

Form 3

Private Sub MDIForm_Load()

Form1.Show

End Sub