Article ID: 178078
Article Last Modified on 3/10/2005
Option Explicit
Private Sub Form_Load()
Timer1.Interval = 1000
Command1.Caption = "Show Message Box"
Command2.Caption = "Show Modal Form"
End Sub
Private Sub Command1_Click()
MsgBox "Events Do Not Occur"
End Sub
Private Sub Command2_Click()
Form2.Show vbModal
End Sub
Private Sub Timer1_Timer()
Static intCount
intCount = intCount + 1
Form1.Print "Event # " & intCount
End Sub
Additional query words: RaiseEvent trigger fire
Keywords: kbprb KB178078