Private Declare Function GetMessagePos Lib "user32" () As Long
 
Private Declare Function ClientToScreen Lib "user32" _
   (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal x As _
  Long, ByVal y As Long) As Long
 
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
 
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
 
Private nPt As POINTAPI
Private nRect As RECT
 
Private Sub Form_Load()
    Timer1.Interval = 50
    ClientToScreen Command1.hwnd, nPt
    With nRect
       .Top = nPt.y
       .Left = nPt.x
       .Right = .Left + (Command1.Width) / Screen.TwipsPerPixelX
       .Bottom = .Top + (Command1.Height) / Screen.TwipsPerPixelY
    End With
 
End Sub
 
Private Sub Timer1_Timer()
 
    Dim LongWert As Long, RVal As Long
    Dim x As Integer, y As Integer
 
    LongWert = GetMessagePos()
 
    If (LongWert And &H8000&) = 0 Then
        x = LongWert And &HFFFF&
        y = LongWert / &H10000
    Else
        x = &H8000 Or (LongWert And &H7FFF&)
        y = (LongWert And &H7FFF&) / &H10000
    End If
 
    RVal = PtInRect(nRect, x, y)
    If RVal > 0 Then
       Command1.BackColor = vbGreen
    Else
       Command1.BackColor = vbRed
    End If
End Sub