VB实现给控件添加系统声音

        作品展中组员做了一个小游戏，功能都实现了但还有很多方面要维护，其中添加声音就是改进的一方面。通过上网搜集找到了些代码，很简单也很有意思，和大家分享一下。

        （1）添加“咚”的声音

               在窗体上添加一个command按钮

                private  sub command1_click()

                  beep

                end sub

          （2）其他的系统声音   

              

       使用API: MessageBeep
       声明: Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long
       把下面的东西复制到一个新的空白的form中，不要任何东西，不要有代码、控件。 
Private Const MB_ICONASTERISK = &H