调用xaudio.dll解码mp3，dsound播放（源码）

研究了xaudio的sdk包，发现vb6能很方便的调用它，所以写了这个例程，只使用了xaudio.dll的一部分函数，同理可以使用其它的。调用dsound控制发声。
以下代码，原c代码部分保留用以对照。
frmMain.frm
VERSION 5.00
Begin VB.Form frmMain
     Caption         =     "Form1"
     ClientHeight      =     3675
     ClientLeft      =     60
     ClientTop         =     345
     ClientWidth     =     4680
     LinkTopic         =     "Form1"
     ScaleHeight     =     3675
     ScaleWidth      =     4680
     StartUpPosition =     2  'CenterScreen
     Begin VB.CommandButton cmdGetInfo
      Caption         =     "GetInfo"
      Height     =     495
      Left         =     360