la verdad tenes razón pero no se porque genera error en la clase clsmouse
coloca este envez del otro..
Código:
Public Property Let TimerEvent(ByVal Dummmy As Boolean)
Dim CurPos As POINTAPI
Dim Value As MouseButtonConstants
Static First As Boolean
Static mx As Long
Static my As Long
If m_WatchPosition Then
Call GetCursorPos(CurPos)
If First Then
If CurPos.X <> mx Or CurPos.Y <> my Then
RaiseEvent PositionChanged
End If
End If
mx = CurPos.X
my = CurPos.Y
End If
If Value <> 0 Then
RaiseEvent SytemClick(Value)
End If
First = True
End Property
me contas que sucede..
nos vemos..