WaveObj.dll使用问题麻烦会的大哥帮帮忙吧

Question

用WaveInit创建对象正常，但是用WaveFree释放后，再创建显示的就是黑的   而且很不稳定偶尔一两次还会奇迹般的可以  

Answer 1

不好意思  回复晚了 
sub q()  
Dim ret As Long
    DoEvents
    ret = WaveInit(Me.hwnd, Me.Picture.Handle, 30, sRound)
    If ret = 1 Then Unload Me
end sub
就是调用上面这个方法
然后用wavefree释放后  更换窗体背景图片  再调用   但是显示的就是黑的的了