菜鸟问题，在线等待，立即给分。

Question

窗体中：
Option ExplicitPrivate WithEvents TempTimer As VB.TimerPrivate Sub Form_Load()
    Set TempTimer = Controls.Add("VB.Timer", "MyTimer")
    TempTimer.Enabled = False
    TempTimer.Interval = 500
    Call MySub
End SubPrivate Sub TempTimer_Timer()
    Print "OK"
End Sub模块中：
Option ExplicitPublic Sub MySub()
    Form1.TempTimer.Enabled = True
End Sub执行报错：未找到方法或数据成员
请高手指教，谢。

Answer 1

vb里不是有TIMER控件吗?何必引用.

Answer 2

Set TempTimer = Me.Controls.Add("VB.Timer", "MyTimer")

Answer 3

你在窗体上画一个timer控件，取名为TempTimer

Answer 4

窗体中
Public WithEvents TempTimer As VB.Timer
模块中
Public Sub MySub()
    Load Form1 '触发 Form_Load 事件载入 TempTimer 控件
    Form1.TempTimer.Enabled = True
End Sub

Answer 5

你的启动对象是什么？sub main?还是form1?