Увы для метода onTime минимальный интервал 1 секунда.
Сегодня сделал таймер в VBA с минимальным интервалом 1/64, может кому пригодится.
Интервалы меньше секунды должны быть кратные 2 (1/2, 1/4, 1/8, 1/16, 1/32)
[vba]Код
Private TimerS As Boolean
'процедура запуска таймера
Public Sub TimerStart()
TimerS = False
MyTimer
End Sub
'процедура остановки таймера
Public Sub TimerStop()
TimerS = True
End Sub
Private Sub MyTimer()
t = 0
Do While Not TimerS
If t = 0 Or t = Timer Then
'
'
'операторы в теле таймера
'
t = Timer + 1 / 64
End If
DoEvents
Loop
End Sub
[/vba]