Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
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
|to transfer string from C lanaguage to VBA||4||71|
|Access 2013 combo box not working||3||51|
|How can I retrieve an image(png/gif/...) stored in SQL (Byte Array) with VBS and convert to BASE64||3||45|
|transition to visual .net from vb6||5||36|