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?