Question

用的是VB6，提示“实时错误‘424’要求对象”

Private Sub mnuExamination_Click()
frmMarks.Show
End Sub

Private Sub mnuExit_Click()
If MsgBox("确实要退出吗?", vbOKCancel + vbQuestion, "系统退出") = vbOK Then
Unload Me
Else
Exit Sub
End If
End Sub

Private Sub mnuStudentsAdmission_Click()
frmSADateZL.Show
End Sub

文件名都是对的

Answer 1

Private
Sub
Form_Load()
Timer1.Interval
=
100
HScroll1.Min
=
1
HScroll1.Max
=
100
HScroll1.Value
=
5
HScroll1.SmallChange
=
1
HScroll1.LargeChange
=
2
Label1.Top
=
Int(Rnd
*
ScaleHeight)
Label1.FontSize
=
Int(1
+
Rnd
*
30)
Label1.Left
=
Form1.Width
End
Sub
Private
Sub
Timer1_Timer()
Label1.Move
Label1.Left
-
HScroll.Value
*
100
If
Label1.Left
<
0
Then
Label1.Left
=
Form1.Width
Label1.Top
=
Int(Rnd
*
ScaleHeight)
Label1.FontSize
=
Int(1
+
Rnd
*
30)
End
If
End
Sub
'问题在于:最下面的句子要么去了，要么放到End
Sub前面

Answer 2

你在执行 ***.Show之前应该先创建了那个窗口才行。
例如：
set frmABC = new frmABC