vb中的线程问题

[jarrywan]

我在程序中通过调用api函数区播放一个wav文件，可是播放的时候我的界面进程被阻塞了，我想是否可以启动一个线程去做，应该怎么做？请高手指教。
我调用的api函数是：
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long '声音播放函数

[TechnoFantasy]

将uFlags 参数中加入SND_ASYNC可以使播放非同步（就是一开始播放函数就返回）

[3661512]

Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Dim plays As Long
plays = sndPlaySound(App.Path & "\Sound\wav\Timeback.wav", SND_ASYNC Or SND_NODEFAULT)

就可以了

[objectprogram]

假如，要使用线程的话，该怎样写？（同时播放二个以上的WAV）

[Neoking]

好像要调用API阿！你在论坛里找找，原来有！
给你一个：http://expert.csdn.net/Expert/topic/2155/2155029.xml?temp=.6616327

[jarrywan]

老大我试了不行啊