Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Дядя Федор

Public Type xy x As Integer y As Integer End Type Public Function f222(ByRef zx As xy) As Integer  f222 = zx.x + zx.y  zx.x = 10  zx.y = 20 End Function Public Sub tst222() Dim z As xy z.x = 1 z.y = 1 Debug.Print f222(z), z.x, z.y ' 2             10            20 End Sub

Эх люблю такие примерчики.
или так

Public Function f222(ByRef zx As xy) As xy  f222.x = 10  f222.y = 20   End Function Public Sub tst222() Dim z As xy z.x = 1 z.y = 1 z=f222(z) Debug.Print z.x, z.y '10            20 End Sub