★　WAVEファイルを再生する
　
'サウンドデータを演奏する(1238)
<System.Runtime.InteropServices.DllImport("winmm.dll", EntryPoint:="PlaySound")> _
Private Shared Function PlaySound(<System.Runtime.InteropServices.MarshalAs( _
                        System.Runtime.InteropServices.UnmanagedType.LPStr)> _
    ByVal pszSound As String, _
    ByVal hModule As Integer, _
    ByVal dwFlags As Integer) _
    As Integer
End Function

Private Const SND_ASYNC As Integer = &H1    '非同期で再生

Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'サウンドデータを演奏する
    PlaySound("C:\WINDOWS\Media\Windows XP Error.wav", 0, SND_ASYNC)
End Sub