Imports System.Media
Public Class Form1
Dim aa As New SoundPlayer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.Media.SystemSounds.Asterisk.Play()
'System.Media.SystemSounds.Beep.Play()
'System.Media.SystemSounds.Exclamation.Play()
'System.Media.SystemSounds.Hand.Play()
'System.Media.SystemSounds.Question.Play()
End Sub
Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
aa.SoundLocation = "c:\chord.wav"
aa.Play()
End Sub
End Class