س : تشغيل عدّة ملفّات أصوات بصورة متتالية لا في نفس الوقت

اذكر المحاولات التي قمت بها

يعني ايه الكود اللي انت بتستخدمو ؟؟؟

أنا أستعمل هذا الكلاس لتشغيل الصّوت :

Public Class SoundClass
	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		  ' play synchronously
	Public Const SND_ASYNC = &H1		 ' play asynchronously
	Public Const SND_FILENAME = &H20000  ' name is file name
	Public Const SND_RESOURCE = &H40004  ' name is resource name or atom
	Public Sub PlaySoundFile(ByVal filename As String)
		' Plays a sound from filename.
		PlaySound(filename, Nothing, SND_FILENAME Or SND_ASYNC)
	End Sub
End Class

و في النموذج أعلن عن متغيّر عام

Dim SoundInst As New SoundClass

و أشغل الصّوت ما يلي :

SoundInst.PlaySoundFile("c:\a1.wav")

و أريد أن أكتب :

dim i as short
for i=0 to 3
		SoundInst.PlaySoundFile("c:\a" & i & ".wav")
next

دون أن تختلط الأصوات ببعضها ..