Public Event GetXY(X as Long, Y as Long)
 
[...]
Dim X as long, Y as long
raiseevent GetXY (x,y)
Msgbox "Control ist bei " & x & "/" & y
[...]

Sub controlx_GetXY(X as long, Y as  long)
x = controlx.left
y = controlx.top
End Sub

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!