【求救】在软件的开发中遇到好多问题哦~~怎么办啊？谁来帮帮我~~

遇到的第一个问题~~
添加了一个模块，用来播放声音：
public sub playSound(strSound as String)
要停止播放怎么办啊？这个函数只能一直播到头么？

和性别无关~

这个有控件可以直接完成
如果是自己写的话，可以在播放的时候，在循环里面插入一个
Boolean变量，每次循环检测其值是否为真，如果为真则继续播放，如果为假则停止播放
为了相应其他操作事件，我想LZ你也是用了DoEvents吧！
下面有具体的，是MSDN上面的：
尽管 Timer 事件是后台处理的最好工具，对耗时极多的任务，情况更是如此，但是，DoEvents 函数还是提供了一种取消任务的简便方法。例如，下列代码将显示一个 "Process" 按钮，单击这个按钮时，它将变成 "Cancel" 按钮。再次单击按钮又将中断正在执行的任务。
'此按钮最初的标题是 "Process"。
Private Sub Command1_Click()
   '过程的所有实例都
   '共享静态变量。
   Static blnProcessing As Boolean
   Dim lngCt As Long
   Dim intYieldCt As Integer
   Dim dblDummy As Double
   '按下按钮时，检测是否
   '已经在处理。
   If blnProcessing Then
      '如果正在处理，则取消处理。
      blnProcessing = False
   Else
      Command1.Caption = "Cancel"
      blnProcessing = True
      lngCt = 0
      '执行一百万次浮点
      '乘法计算。每一千次后，
      '检测是否要取消。
      Do While blnProcessing And (lngCt < 1000000)
         For intYieldCt = 1 To 1000
            lngCt = lngCt + 1
            dblDummy = lngCt * 3.14159
         Next intYieldCt
         'DoEvents 语句允许其它事件
         '发生，包括第二次
         '按此按钮。
         DoEvents
      Loop
      blnProcessing = False
      Command1.Caption = "Process"
      MsgBox lngCt & " multiplications were performed"
   End If
End Sub
DoEvents 将控制切换到操作环境内核。只要此环境中的所有应用程序都有机会响应待处理事件，应用程序就又恢复控制。这不会使应用程序放弃焦点，但会使后台事件能够得到处理。

ffff

先谢过“独孤”前辈啦~~我去试试~~~咔咔~~

又遇到问题啦~~~
在Button里写的是：unload form1
form2.show
为什么form1窗体不停出现啊？