MSDN中解释不清，请分析如下语句。

Question

在类模块当中有如下语句
Private WithEvents mytxt As TextBox
问：
（1）该语句的意思
（2）WithEvents的用法和含义

Answer 1

msdn中说的还是挺清楚的啊WithEvents 关键字，说明 varname 是一个用来响应由 ActiveX 对象触发的事件的对象变量。只有在类模块中才是合法的。使用 WithEvents，可以声明任意个所需的单变量，但不能使用 WithEvents 创建数组。New 和 WithEvents 不能一起使用。 你用下面的代码试试Private WithEvents mytxt As TextBoxPrivate Sub Form_Load()
    Set mytxt = Controls.Add("vb.textbox", "text1", Me)
    mytxt.Move 1000, 1000, 1500, 300
    mytxt.Visible = True
End SubPrivate Sub mytxt_Change()
    MsgBox "textbox changed"
End Sub运行后，在textbox输入，将会触发change事件
然后你从上面的代码中去掉withevents关键字，再运行试一试