用WithEvents 定义对象出错，急呀，求大家帮帮
Dim WithEvents a As New Class1 为何出错呀，编译就出错， 把new 去掉可以，但我如何取得类class1 的对象实例呢
SET a= class1也不行呀
[解决办法]
两个关键字不能连用
Dim WithEvents a As Class1
Set a=New Class1