ارجووووكم ساااعدوني في كود الصوت .... بيجنني ...

PlaySoundFile(1)

End Sub

Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _

As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer

Public Const SND_SYNC = &H0

Public Const SND_ASYNC = &H1

Public Const SND_FILENAME = &H20000

Public Const SND_RESOURCE = &H40004

Public Sub PlaySoundFile(ByVal filename As String)

PlaySound(1, Nothing, SND_FILENAME Or SND_ASYNC)

End Sub