//File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Text Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Imports System.Media Imports System.ComponentModel Imports System.IO Namespace SoundAndVideo Public Partial Class SoundPlayerTest Inherits System.Windows.Window Private player As New MediaPlayer() Public Sub New() InitializeComponent() End Sub Private Sub cmdPlayAudioAsync_Click(sender As Object, e As RoutedEventArgs) Dim player As New SoundPlayer() player.SoundLocation = "test.wav" player.Load() player.Play() End Sub Private Sub window_Closed(sender As Object, e As EventArgs) player.Close() End Sub End Class End Namespace