如何为窗体增加事件？

[wuhee_snowwolf]

由于我发现可以用Property语句为窗体增加属性，自然想到为窗体增加事件，但用Event语句定义后发现Form并不识别我定义的事件，而是将其作为一般过程处理。请问如何才能添加事件给窗体？
我的定义是：
Public Event ModeChange(Mode As Integer)

[litsnake1]

用raiseevent

Option Explicit

Private WithEvents mText As TimerState

Private Sub Command1_Click()
Text1.Text = "From Now"
Text1.Refresh
Text2.Text = "0"
Text2.Refresh
Call mText.TimerTask(9.84)
End Sub

Private Sub Form_Load()
Command1.Caption = "Click to Start Timer"
Text1.Text = ""
Text2.Text = ""
Label1.Caption = "The fastest 100 meters ever run took this long:"
Set mText = New TimerState
End Sub

Private Sub mText_ChangeText()
Text1.Text = "Until Now"
Text2.Text = "9.84"
End Sub

Private Sub mText_UpdateTime(ByVal dblJump As Double)
Text2.Text = Str(Format(dblJump, "0"))
DoEvents
End Sub

The remaining code is in a class module named TimerState. Included among the commands in this module are the Raise Event statements.

Option Explicit
Public Event UpdateTime(ByVal dblJump As Double)
Public Event ChangeText()

Public Sub TimerTask(ByVal Duration As Double)
Dim dblStart As Double
Dim dblSecond As Double
Dim dblSoFar As Double
dblStart = Timer
dblSoFar = dblStart

Do While Timer < dblStart + Duration
If Timer - dblSoFar >= 1 Then
dblSoFar = dblSoFar + 1
RaiseEvent UpdateTime(Timer - dblStart)
End If
Loop

RaiseEvent ChangeText

End Sub

[qxluo]

定义好事件后，在你的form中你认为该产生该事件的地方用

RaiseEvent ModeChange(mode)

触发

在其他模块中采用如下方式定义form就可以捕获事件了：

dim withevents form as frmYourFram

private sub form_modeChange(mode as Integer)
end sub

[redwrite]

学习

[wuhee_snowwolf]

谢谢大家，我找到了，在MSDN里面使用跳转URL到
mk:@MSITStore:D:\Program%20Files\Microsoft%20Visual%20Studio\MSDN98\98VSa\1033\vbcon98.chm::/Html/vbconaddingeventtoform.htm
看 Adding an Event to a Form