Private Sub Form_MouseMove(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  ' Das MouseMove Ereignis wird ausgelöst, wenn die
  ' Maus über das Symbol im Systray geführt wird
 
  Dim lMsg As Long
  Dim sFilter As String
 
  lMsg = Me.ScaleX(X, Me.ScaleMode, vbPixels) ' lMsg = X / Screen.TwipsPerPixelX
  ...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de