Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0 ' stops playing and plays from start if called
Const SND_ASYNC = &H1 ' plays sound from beginning to the end
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8 ' plays sound in a loop
Const SND_NOSTOP = &H10
Private Sub nameOfSub()
Dim x%
x% = sndPlaySound("c:\testsnd.wav", SND_SYNC Or SND_NODEFAULT Or SND_LOOP)
End Sub