how to deal with run-time error 424 object required in VB6.

[steven kangungu]

im trying to create a car park system but my MDIform 1 has an error.
here is my codes.

Private Sub MNUADDUSER_Click()
MDIForm1.Hide
FRMMANAGE.Show
End Sub

Private Sub MDIForm_Lo()
End Sub

Private Sub MDIForm_Load()
Form1.Show
MDIForm1.Hide
End Sub

Private Sub MNUADMIN_Click()
FRMMANAGEADMIN.Show
MDIForm1.Hide
End Sub

Private Sub MNUBACKUP_Click()
FRMBACKUP.Show
MDIForm1.Hide
End Sub

Private Sub MNUCALCULATOR_Click()
MDIForm1.Enabled = False
Form1.Show
End Sub

Private Sub MNUCARDETAIL_Click()
MDIForm1.Hide
Frm1CARDETAIL.Show
Frm1CARDETAIL.TXTLICE.SetFocus
End Sub

Private Sub MNUCARS_Click()
DataReport1CARS.Show
End Sub

Private Sub MNUCHECKEDINCARS_Click()
Form1CHECKEDIN.Show
MDIForm1.Hide
End Sub

Private Sub MNUCHECKEDOUT_Click()
Form1CHECKEDOUT.Show
MDIForm1.Hide
End Sub

Private Sub MNUCUSTOMER_Click()
MDIForm1.Hide
FRMCUSTOMERDETAIL.Show
FRMCUSTOMERDETAIL.TXTCUSTOID.SetFocus
End Sub

Private Sub mnudatareport_Click()
MDIForm1.Hide
DataReport1.Show
End Sub

Private Sub MNUCUSTOMERS_Click()
Load DataEnvironment1
DataReport1CUSTOMER.Refresh
DataReport1CUSTOMER.Show
End Sub

Private Sub MNUEXIT_Click()
CONFIRM = MsgBox("ARE YOU SURE YOU WANT TO EXIT?", vbYesNo, "EXIT")
If CONFIRM = vbYes Then
Unload Me
End If
End Sub

Private Sub MNUID_Click()
Form1CARLOOKUP.Show
End Sub

Private Sub MNULOCK_Click()
CONFIRM = MsgBox("ARE YOU SURE YOU WANT TO LOCK THE SYSTEM?", vbYesNo)
If CONFIRM = vbYes Then
MsgBox "SYSTEM IS BEING LOCKED", vbInformation + vbOKOnly, "CONFIRMED"
MDIForm1.Hide
FrmLogin.Show
FrmLogin.txtUserName.SetFocus
End If
End Sub

Private Sub MNUOFFICERDETAIL_Click()
MDIForm1.Hide
FrmOFFICERDETAIL.Show
FrmOFFICERDETAIL.TXTOFCRID.SetFocus
End Sub

Private Sub MNUOFFICERONDUTY_Click()
DataReport1OFFICER.Show
End Sub

Private Sub MNUOTHERS_Click()
FRMMANAGE.Show
MDIForm1.Hide
End Sub

Private Sub MNUPAYMENT_Click()
MDIForm1.Hide
FRMDAILY.Show
End Sub

Private Sub MUBACKUP_Click()
FRMBACKUP.Show
MDIForm1.Hide
End Sub

Private Sub MNUPAYMENTS_Click()

End Sub

Private Sub MNUREPORTS_Click()
Form1REPORTS.Show
MDIForm1.Hide
End Sub


please help ASAP.

[codegazer]

Are you sure you can hide a MDIform?