>>875
ケース1を With で書くと With a のはず
ケース2を With で書かない場合は
Set a = new Class1
のあと
Set ab = a.b
とでもしておいて
ab.X
ab.Y
としなければならないはず

副作用のあるプロパティの例にはなってるけど
Withについての例としては成り立っていない