Menu Login dengan Microsoft Visual Basic 6.0

Membuat menu Login dengan Software Microsoft Visual Basic 6.0

Dim a As Byte

Private Sub cmdCancel_Click()

Dim nPil As Integer

  nPil = MsgBox("Apakah Anda Membatalkan Masuk Program?", vbYesNo + 48)

  If nPil = vbYes Then

    End

End If

End Sub

Private Sub cmdOK_Click()

 cmdok.Enabled = True

 cmdcancel.Enabled = True

If txtuser.Text = "" And txtpas.Text = "" Then

MsgBox "Selamat Datang,Anda Berhasil Login", vbInformation + vbOKOnly, "Informasi"

Unload Login

Menu.Show

Menu.Enabled = True

Else

MsgBox ("Maaf Password Salah ! "), vbInformation + vbOKOnly, "Informasi"

End If

txtuser.Text = ""

txtpas.Text = ""

End Sub

Private Sub Form_Activate()

txtuser.Text = ""

txtpas.Text = ""

txtuser.SetFocus

End Sub

Private Sub txtuser_Change()

End Sub