### Vektor nyújtása

          Sub Nyujt(ByVal X_regi, ByVal Y_regi, ByRef X_uj, ByRef Y_uj)
            X_uj = 2 * X_regi : Y_uj = 2 * Y_regi
          End Sub

A változók értéke a nyújtás előtt
(az X2 és Y2 nem kapott értéket):

A változók értéke a `Call Nyujt(X1, Y1, X1, Y1)` eljáráshívás után
(az X1 és Y1 értékét megváltoztatjuk):

A változók értéke a `Call Nyujt(X1, Y1, X2, Y2)` eljáráshívás után
(az új értékeket az X2, Y2-be írjuk be):