Tæller ved tryk på knap

lav en tekstboks, sæt standardværdien til 1

koden skal i Form modulet

Dim T As Boolean
Private Sub Form_Load()
T = False
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
T = True
Text1.Text = 1
Do
Text1.Text = Text1.Text + 1
DoEvents
Loop Until T = False
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
T = False
End Sub

klik på tekstboksen for at starte

Det var lige det jeg skulle bruge alle point til kabbak tak til kabbak!!!

husk at lukke

Ups. hvordan lukker man et spørgsmål ?

marker mit navn i boksen til venstre og tryk accepter