Public doit As Boolean
Dim i As Long
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
doit = True
While doit
If doit Then qq
DoEvents
Wend
End Sub
Sub qq()
i = i + 1
Text1.Text = Text1.Text & "," & CStr(i)
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
doit = False
End Sub