WITH...END WITH

La parola-chiave WITH indica una struttura di controllo che consente di raccogliere più risorse di una Classe, evitando che sia ripetuta per ciascuna di quelle risorse l'identificatore dell'Oggetto della Classe.
Detta struttura di controllo termina con la parola-chiave End With.
All'interno della struttura "With...End With" le risorse della Classe sono impostate e precedute dal consueto Operatore, avente come simbolo il punto (.) .

La sintassi può essere esplicitata come segue:

WITH identificatore_di_un_Oggetto
  .Proprietà = ...
  .Metodo(...)
  .Etc
END WITH

La struttura "With...End With" può essere utilizzata proficuamente anche all'atto dell'istanziazione da codice di un Oggetto di una Classe:

WITH identificatore_di_un_Oggetto = New Classe As "Gruppo_degli_Eventi"
  .Proprietà = ...
  .Metodo(...)
  .Etc
END WITH

Mostriamo un esempio pratico, nel quale si imposteranno alcune risorse di una Label, usando la struttura "With...End With":

Public Sub Form_Open()

  Dim Label1 As Label

  With Label1 = New Label(Me) As "Label1"
    .X = 10
    .Y = 10
    .W = 100
    .H = 100
    .Background = Color.Yellow
    .Adjust()
  End With

Accesso ai vettori

La struttura "With...End With" può essere utilizzata anche come scorciatoia per l'accesso all'array:

With array
  .[0] = "Primo inserimento"
  .[1] = "Secondo inserimento"
End With