有多个窗体用到同一个timer事件怎么做

新建一个窗体2，在窗体1中设置一个时钟，间隔为2000，在

窗体1中添加下面的代码：

Option Explicit

Private Sub Form_Load()

Form2.Show

End Sub

Private Sub Timer1_Timer()

Form2.OnTimer

'以下添加你在窗体1中相应的语句

Print 7

End Sub

在窗体2中添加下面的代码：

Option Explicit

Public Sub OnTimer()

'这里添加你需要相应的语句。

MsgBox 7

End Sub

运行，看结果就可以了！~

把timer控件，放置在窗体中，设置timer的enable和interval，双击窗体中的timer进入代码窗口，Private Sub Timer1_Timer()下添加代码，运行即可。

Private Sub Timer1_Timer()

Label1.Caption = Hour(Now) &":" &Minute(Now) &":" &Second(Now)

End Sub

---