Option Explicit
 
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

Dim P As POINTAPI
 
ClientToScreen Me.hwnd, P  
MsgBox "Linke Position in Pixel: " & CStr(P.x)