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.
Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Private Sub Document_Open()
Dim strWav As String
strWav = "\path\to\file.wav"
sndPlaySound strWav, SND_ASYNC Or SND_LOOP
End Sub