Moinsen,

ich möchte einer Function 4 werte übergeben und 2 zurückbekommen, etwa derart:

Function XYPoint(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double) As Point
Dim vh As Double, vg As Double
Dim PT As Point
vh = x1 * x2
vg = y1 + y2

PT.X = vh
PT.Y = vg
XYPoint = PT
End Function

Wie ist denn bitte der Wert an PT oder XYPoint zu übergeben. Habe auch schon was mit:

'Type PointUE
'  X As Double
'  Y As Double
'End Type

probiert, funktioniert aber auch nicht, vielleicht weil ich nicht weiß, wie und wo der Type hinkommen muss...

Danke FG