With 语句

Sets an object as the default object. Unless another object name is declared, all properties and methods refer to the default object until the End With statement is reached.

    With object
       [statements]
    End With

Use With and End With if you have several properties or methods for a single object or an extended data type definition.

Nesting With statements helps writing and reading Basic routines.