' Deklaration
Private Declare Function ClientToScreen Lib "user32" ( _
  ByVal hwnd As Long, lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  x As Long
  y As Long
End Type

' Position des Steuerelements auf den Screen bezogen:
' Angaben in Pixel!
Dim PT As POINTAPI
ClientToScreen Control.hWnd, PT

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de