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…