Timer, GetCursorPos и запись в файл нескольких кликов вместо одного - VB

Формулировка задачи:

В таймере считываю координаты мышы, после чего записываю их в файл

                    Листинг программы
                
 
                        
                          
                    
Private Sub Timer1_Timer()
 Dim ButMous As String
 PosCur = GetCursorPos(MouseCoordinat)
 Text1.Text = MouseCoordinat.x
 Text2.Text = MouseCoordinat.y
 ButMous = ""
 If MButtonDown(1) Or MButtonDown(2) Or MButtonDown(3) Then
    If MButtonDown(1) Then ButMous = "L"
    If MButtonDown(2) Then ButMous = "R"
    If MButtonDown(3) Then ButMous = "O"
    CreateLogFile ButMous & " " & MouseCoordinat.x & " " & MouseCoordinat.y
 End If
End Sub
' timer.interval =1

Когда в коде ставлю breakpoint в файл пишет один клик - одна запись, но когда F5 то при одном нажатии мышы помучается:

                    Листинг программы

а должно быть: L 57 73 L 237 149 R 262 91 при чем количество повторений всегда разное!? Помогите, сам не разберусь.

Решение задачи: «Timer, GetCursorPos и запись в файл нескольких кликов вместо одного»

textual
                            Листинг программы 
                        
If State(i) = 1 Then Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) 'Г*Г*Г¦Г*Г«ГЁ
If State(i) = -1 Then Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) 'Г®ГІГЇГіГ±ГІГЁГ«ГЁ