如何可以播放dat,midi格式的文件

我的代码：
Private Sub Command1_Click()
Me.CommonDialog1.ShowOpen
    m_Filename = Me.CommonDialog1.FileName
    If m_Filename <> "" Then
        Me.MMControl1.FileName = m_Filename
        Me.Caption = m_Filename
        Me.MMControl1.Command = "open"
    Slider1.Min = 0
        Slider1.Max = MMControl1.Length

    End If
End Sub
请大家帮我改一下