在VB程序里加动态库播放器源码

Begin WMPLibCtl.WindowsMediaPlayer WindowsMediaPlayer1
      Height          =   2055
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   4455
      URL             =   ""
      rate            =   1
      balance         =   0
      currentPosition =   0
      defaultFrame    =   ""
      playCount       =   1
      autoStart       =   -1  'True
      currentMarker   =   0
      invokeURLs      =   -1  'True
      baseURL         =   ""
      volume          =   50
      mute            =   0   'False
      uiMode          =   "full"
      stretchToFit    =   0   'False
      windowlessVideo =   0   'False
      enabled         =   -1  'True
      enableContextMenu=   -1  'True
      fullScreen      =   0   'False
      SAMIStyle       =   ""
      SAMILang        =   ""
      SAMIFilename    =   ""
      captioningID    =   ""
      enableErrorDialogs=   0   'False
      _cx             =   7858
      _cy             =   3625
   End
End

光看这段就不算是加动态库播放器了
播放器动态加感觉是在代码中以物件加载
而不是静态先拉好的