Visual Basic - Estudiante

Hola!!

Quiero saber como hacer que cuendo pasas el puntero sobre un boton, suene, ????

Private Sub boton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
End Sub

Esto funciona fatal, directamente no se oye, solo se puede oir con auriculares y muy mal.
Te propongo cambiar los colores.

Private Sub boton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
boton.BackColor = QBColor(1)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
boton.BackColor = QBColor(8)
End Sub

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sndPlaySound "C:\WINDOWS\Media\notify.wav", SND_ASYNC Or SND_NODEFAULT
End Sub

La primera declaracion ponela arriba de todo,sino puede ir dentro de un modulo sin el private

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

espero te sirva !!!
saludos