smh, 1 is the fastest you will get with a timer.
Perhaps, a Do...Loop will satisfy your needs?

Code:
Private Sub Command1_Click()
Do
FlashWindow Form1.hWnd, True
DoEvents
Loop
End Sub