كيف اضيف صوت للفورم

ضع الملف الصوتي في مسار البرنامج وليكن باسم Sound1 ثم ضع الأوامر التالية في Genral :

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10

وفي حدث الضغط على زر الأمر اكتب الأمر التالي :

 soundfile$ =App.path & "/Sound1.wav"
    wFlags% = SND_ASYNC Or SND_NODEFAULT
    HaHa = sndPlaySound(soundfile$, wFlags%)