на сдвиг мыши можно так
Private Declare Function CallWindowProcA Lib "user32" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error GoTo xErr
Dim i As Integer
If uMsg = WM_MOUSEWHEEL Then
--здесь таймер
Else
WindowProc = CallWindowProcA(lpPrevWndProc, hWnd, uMsg, wParam, lParam)
End If
xErr:
End Function
это так набросок материал в инете есть, соответственно при клике мышью функция тоже должна отработать