In my app i using a Timer control to place in a label mouse pointer coordinate,
when my form is show my mouse pointer flash.

I would like to know other way to create background processing not using Timer Control or i want to know a path for solve my prob ?


this is part of code of my Timer Control :


Private Sub MinPos_Timer()
Dim rtn As Long


rtn = GetCursorPos(Coord)

FrmMain.Caption = "Position de la souris: X --> " & Coord.X & " ; Y --> " & Coord.Y

If OptRes(0).Value = True Then

If ChOn.Value = 1 Then PosRes (640)

Line1.X1 = (Coord.X / 0.313)
Line1.X2 = (Coord.X / 0.313)
Line2.Y1 = (Coord.Y / 0.313)
Line2.Y2 = (Coord.Y / 0.313)

End If

If OptRes(1).Value = True Then

If ChOn.Value = 1 Then PosRes (800)

Line1.X1 = (Coord.X / 0.396)
Line1.X2 = (Coord.X / 0.396)
Line2.Y1 = (Coord.Y / 0.396)
Line2.Y2 = (Coord.Y / 0.396)

End If

If OptRes(2).Value = True Then

If ChOn.Value = 1 Then PosRes (1024)

Line1.X1 = (Coord.X / 0.5)
Line1.X2 = (Coord.X / 0.5)
Line2.Y1 = (Coord.Y / 0.5)
Line2.Y2 = (Coord.Y / 0.5)


End If

End Sub