Visual Basic 6: como usar parametros, numa função, arrays?

Cambalinho

Power Member
eis o cabeçalho de 1 função:
Código:
Public Function GetLinePoints(ByRef Origin As Position3D, ByRef Destiny As Position3D) As Position3D()
agora veja como a uso:
Código:
Friend Sub DrawImageRectanglePoints(DestinationHDC As Long, ByRef Points() As Position3D)
    'Points(0) is the Upper-Left
    'Points(1) is the Upper-Right
    'Points(2) is the Low-Right
    'Points(3) is the Low-Left
    Dim PointsUpperDownLeft() As Position3D
    PointsUpperDownLeft = GetLinePoints(Points(0), Points(3))
eu acredito que o 'Points(0)' é onde está o erro de compilação: "ByRef argument type mismatch"
como posso evitar esse erro?
 
Back
Topo