VBScript のステートメント、With ステートメント

Class Foo
  Function foo1
    MsgBox "foo1"
  End Function

  Function foo2
    MsgBox "foo2"
  End Function
End Class

Set obj = New Foo
With obj
  .foo1
  .foo2
End With

入れ子

Class Foo
  Function foo1
    MsgBox "foo1"
  End Function

  Function foo2
    MsgBox "foo2"
  End Function
End Class

Class Bar
  Function bar
    Set bar = New Foo
  End Function
End Class

Set obj = New Bar
With obj
  With .bar
    .foo1
    .foo2
  End With
End With