Lav en global variabel, kaldet bmousedown
Private bmousedown
Ret koden.
Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
bmousedown=true
Do
If Sats + 1 <= (Sum - 1) Then
Sats = (Sats + 1)
Sum = (Sum - 1)
End If
DoEvents
Sleep 100
Loop while bmousedown
End Sub
Private Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
bmousedown=false
End Sub
Koden er bare rystet ud af ærmet, og ej testet...
Mvh
www.cadmageren.dk
Michael Christoffersen