用WithEvents 定义对象疏失，呀，求大家帮帮

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