With语句可对某个对象执行一系列的语句，不必重复指出对象的名称。 With~对象引用>
<语句1>
End With
例如，要改变一个对象的多个属性，可在With控制结构中加上属性的赋值语句，只需引用对象一次而不必在每个属性赋值时都引用它。例如：
With MyLabel ’给MyLabel对象的多个属性赋值
．Height=2000
．Width=2000
．Caption="This is MyLabel"
End With
注 ：由于程序进入With块后，对象就不能改变了，因此不能用一个With语句来设置多个不同的对象。可将一个With块放在另一个之中，产生嵌套的With语句。但在内层的With块中，要使用完整的对象引用来指出在外层的With块中的对象成员。
本文来自: 中国自学编程网(
www.zxbc.cn) 详细出处参考：
http://www.zxbc.cn/html/20071105/29039.html
