Do you work with and analyze data? Enroll in October's Course of the Month for 7+ hours of SQL training, allowing you to quickly and efficiently store or retrieve data. It's free for Premium Members, Team Accounts, and Qualified Experts!
Private Sub Timer1_Timer() 'Dim Counter As Integer Dim lblcreditcurrency As Currency If mbStartSound <> True Then sndData = LoadResData("ADDINGWINNINGS", "SOUND") sndPlaySound sndData(0), SND_LOOP Or SND_ASYNC Or SND_MEMORY End If If miCnt <= mEndNum Then lblWinThisRun.Caption = lblWinThisRun.Caption + 1 If mCreditMode = 1 Then ' lblcreditcurrency = GetPriceByBetMode(mBetMode) lblCredit.Caption = CCur(lblCredit.Caption) + mCurrencyWon 'checked out lblCredit.Caption = Format(lblCredit.Caption, "currency") miCnt = miCnt + 1 Else lblCredit.Caption = Val(lblCredit.Caption) + 1 miCnt = miCnt + 1 End If mbStartSound = True Else 'Counter = 1 Timer1.Enabled = False 'Stop the Sound sndPlaySound ByVal 0, 0 mbStartSound = False End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.