Dim player As New SoundPlayer()
Dim path As String = "C:\windows\media\ding.wav" ' Müzik adresi
player.SoundLocation = path
player.Play()