VB.Net Tutorial/Windows/Wav Sound
Play a wav file
<source lang="vbnet">Imports System.Net Imports System.Windows.Forms public class Tester
public Shared Sub Main Dim mstrfileName As String = "start.wav" PlaySound(mstrfileName, 0, SND_FILENAME) End Sub Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer Const SND_FILENAME As Integer = &H20000 Const SND_ALIAS As Integer = &H10000 Const SND_SYNC As Integer = &H0 Declare Auto Function waveOutGetNumDevs Lib "winmm.dll" Alias "waveOutGetNumDevs" () As Int32 Declare Auto Function sndPlaySound Lib "WINMM.DLL" (ByVal FileName As String, ByVal Options As Int32) As Int32 Private Const SND_MEMORY As Integer = &H4 Private Const SND_ASYNC As Integer = &H1 Private Const PROCESS_DOMAIN As String = "" Const SND_SYNC1 = &H0 Const SND_ASYNC1 = &H1 Const SND_NODEFAULT = &H2 Const SND_LOOP = &H8 Const SND_NOSTOP = &H10
End class</source>
Play window system sound: SystemStart
<source lang="vbnet">Imports System.Net Imports System.Windows.Forms public class Tester
public Shared Sub Main PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC) End Sub Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer Const SND_FILENAME As Integer = &H20000 Const SND_ALIAS As Integer = &H10000 Const SND_SYNC As Integer = &H0 Declare Auto Function waveOutGetNumDevs Lib "winmm.dll" Alias "waveOutGetNumDevs" () As Int32 Declare Auto Function sndPlaySound Lib "WINMM.DLL" (ByVal FileName As String, ByVal Options As Int32) As Int32 Private Const SND_MEMORY As Integer = &H4 Private Const SND_ASYNC As Integer = &H1 Private Const PROCESS_DOMAIN As String = "" Const SND_SYNC1 = &H0 Const SND_ASYNC1 = &H1 Const SND_NODEFAULT = &H2 Const SND_LOOP = &H8 Const SND_NOSTOP = &H10
End class</source>