What? You want to quickly add code to your VB 6 app to play a sound file?

1.) Create a module.
2.) Insert the code that follows.
3.) Call playSound.
4.) Figure out you don't have a .wav file called C:\online.wav and fix that.

Optional: 5.) Add beep code to the module for SUPRA-SOUND MULTIMEDIA SPECTACULARS!!!


Option Explicit

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Sub playSound()
    sndPlaySound "C:\online.wav", &H1
End Sub