WITH Expression
...
END WITH
Между WITH и END WITH инструкциями выражение, начинающееся с точки, ссылается на Expression. Так что, Expression должно быть объектом.
WITH hButton
.Text = "Cancel"
END WITH
is equivalent to
hButton.Text = "Cancel"
BREAK, CONTINUE, DO, FOR, FOR EACH, LOOP, REPEAT, UNTIL, WHILE