I have an 80 number keno game that win run if a win 2 labels are rotated and a sound plays the amount of the win
I am trying to make the labels update instantly if the form is click and skip the label rotation
the mbSpeedTimer is ignored when the form is clicked
The form click sets mbSpeedTimer to true

Code:
Private Sub Form_Click()
mbSpeedTimer = True 'skip label rotation just increase winnings     mbWinInProgress = True


Private Sub Timer1_Timer()
Dim bFinished As Boolean
Dim lblcreditcurrency As Currency
    If mbSpeedTimer Then
       FastAddWins
       Exit Sub
    End If
  
    If mbStartSound = False Then
     mbytData = LoadResData("tick", "SOUND")
     sndPlaySound mbytData(0), SND_LOOP Or SND_ASYNC Or SND_MEMORY
    End If
            
   Do While bFinished = False
    If mbSpeedTimer Then 'speed up win if user clicked form or images
      sndPlaySound ByVal 0, 0 'Stop the Sound
      Timer1.Enabled = False
       Exit Do
       Call FastAddWins ' call the sub to total labels instantly
       Exit Sub
    End If
     
      If mbSpeedTimer = False Then
         Sleep 90 ' added this to slow labels for some reason changing the interval didn't work
         Else
         Exit Do
       End If
         
            lblWinThisRun.Caption = lblWinThisRun.Caption + 1
          If mintCreditMode = 1 Then '
            lblCredit.Caption = CCur(lblCredit.Caption) + mcurCurrencyWon 'checked out
            lblCredit.Caption = Format(lblCredit.Caption, "currency")            
            mlngCnt = mlngCnt + 1
          Else
              lblCredit.Caption = Val(lblCredit.Caption) + 1
            mlngCnt = mlngCnt + 1
          End If
          
        If mlngCnt > mlngEndNum Then
            WaitMessage ' don't know if this is needed or not
            bFinished = True
            DoEvents
         End If
     Loop

            mbStartSound = True
            Timer1.Enabled = False
            sndPlaySound ByVal 0, 0 'Stop the Sound
            mbStartSound = False
            mbWaitforWinToFinish = False
            mbRunInProgress = False
End Sub