click

Idé:
Kan det ikke gøres med en timer?

Ved ikke om det virker :-(

Prøv at bruge MouseDown og MouseUp
Eksempel:

Dim Trykket As Boolean

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    Trykket = True
    Dim Tal
    Do While Trykket = True
        Tal = Tal + 1
        Cls
        Print Tal
        DoEvents
    Loop
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
    Trykket = False
End Sub

Fedt bkp! Jeg prøver det lige....

Såvidt jeg har forstået spørgsmålet skal du gøre dels hvad bkp foreslår, men: Tillæg en timer til dit projekt og:

Dim Trykket As Boolean

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    Trykket = True
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
    Trykket = False
End Sub

Private Sub Timer1_øhmmm(øhmmm)
  if trykket then tal=tal+1
end sub

Det er fordi bkp mousedown kun aktiveres i det øjeblik du trykker museknappen, men du ønsker at denne routine skal køre indtil museknappen slippes!

Forstår du min crap-tale!

I har allesammen ret! Jeg lavede faktisk det der med timeren inden du foreslog det Stoons, fordi det gik lidt for hurtigt kun med bkp's kode.
Så jeg har sat timer  intervallet til 100, så den ikke flyver op på 1 million lige når man trykker!

Jeg vil gøre det på den måde Stoons

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    timer.enabled = True
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
    Ttimer.enabled = False
End Sub

Ja, det er rigtig det du siger der Waheed. Det er spildt kode alt det der med Trykket som Boolean værdi. Ihvertfald når man bruger en timer

Det ved jeg snart ikke..afhænger af projektets størrelse :p