[VB6]form Load med lyd

Option Explicit

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

Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2

Public Sub PlaySound(ByVal strPath As String)
  sndPlaySound strPath, SND_ASYNC Or SND_NODEFAULT
End Sub

Private Sub Form_Load()
  Call PlaySound("C:\WINDOWS\MEDIA\Tada.wav")
End Sub

havd så vis jeg har en knap på min form og vil have lyd på den også ved klik f.eks
mvh H Cichosz

Private Sub Command1_Click()
  Call PlaySound("C:\WINDOWS\MEDIA\Tada.wav")
End Sub