' benötigte API's
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
 
Private Declare Function SetCursorPos Lib "user32" ( _
  ByVal x As Long, ByVal y As Long) As Long

  Dim P As POINTAPI
 
  ClientToScreen Text1.hwnd, P
  SetCursorPos P.x + ScaleX(Text1.Width / 2, ScaleMode, vbPixels), _
    P.y + ScaleY(Text1.Height / 2, ScaleMode, vbPixels)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de