Hi KS,
Have a look at this,
Not as a direct answer on your question, but as a sample to help you to
understand the movement of the cursor and how to catch that.
Cor
\\\
Private Sub myControl_MouseDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles myControl.MouseDown
swMousedown = True
MyFunction.Mousedown(myControl.PointToScreen(New Point(0, 0)))
End Sub
Private Sub myControl_MouseUp(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles myControl.MouseUp
swMousedown = False
End Sub
Private Sub myControl_MouseMove(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles myControl.MouseMove
Static LastCursor As Point
Dim NowCursor As Point = New Point(Cursor.Position.X, Cursor.Position.Y)
If Point.op_Inequality(NowCursor, LastCursor) and swMousedown Then
'doSomething
End If
LastCursor = Cursor.Position
End Sub
///