用WithEvents 定义对象出错，呀，求大家帮帮解决方案

用WithEvents 定义对象出错，急呀，求大家帮帮
Dim WithEvents a As New Class1 为何出错呀，编译就出错， 把new 去掉可以，但我如何取得类class1 的对象实例呢 
  SET a= class1也不行呀

[解决办法]
两个关键字不能连用
Dim WithEvents a As Class1
Set a=New Class1