Пример взят из справки. Перед ответом запрещается запускать пример.
Code
Sub Halve (ByRef i As Integer)
i /= 2
End Sub
Sub Triple (ByRef i As Integer)
i *= 3
End Sub
Type operation As Sub (ByRef As Integer)
Dim operations(20) As operation = _
{ @Halve, @Triple, 0 }
Dim i As Integer = 280
Dim op As operation Ptr = @operations(0)
While (0 <> *op)
(*op)(i)
op += 1
Wend
Print "Value of 'i' after all operations performed: " & i
Sleep
