<< Click to Display Table of Contents >> With (statement)

With Object

 [Statements]

End With

Executes a group of statements for the given object.

The With statement allows accessing the elements of an object without having to repeat the object name over and over again.

Note: With statements may be nested.

See also: While Wend, Do Loop, section Hints for simplifying notations

Example:

Type type1

 a As Integer

 d As Double

 s As String

End Type

Type type2

 a As String

 o As type1

End Type

Dim var1a As type1

Dim var2a As type2

Sub Main

 With var1a

         .a = 65

         .d = 3.14

 End With

 With var2a

 .a = "Hello"

         With .o

                 .s = "Bye!"

         End With

 End With

 var1a.s = "TEST"

 MsgBox var1a.a

 MsgBox var1a.d

 MsgBox var1a.s

 MsgBox var2a.a

 MsgBox var2a.o.s

End Sub