【实例说明】
    随机取出一首播放。

【编程思路】
    MMControl控件。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.单击“工程”菜单中的“部件”选项，在弹出的"控件"列表中，选中"Microsoft Multimedia Control 6.0"选项，单击“确定”按钮，MMControl控件将被添加到工具箱中。
    3.在Form1上添加一个CommandButton控件和一个MMControl控件。

    4.源程序  [素材源程序下载]


Option Explicit

Private i As Long
Private b As Boolean

'音乐开关
Private Sub Command1_Click()
        b = Not b
        If b = True Then
                Command1.Caption = "暂停"
                MMControl1.Command = "Play"
        Else
                Command1.Caption = "开始"
                MMControl1.Command = "Pause"
        End If
End Sub

Private Sub Form_Load()
        Randomize

        i = Int(Rnd * 4) + 1

        MMControl1.FileName = (App.Path & "\sound\" & i & ".mid")
        MMControl1.Command = "Open"
End Sub