我在网上看到的一个MP3播放器的源代码,想想看看,但是有几处错误的地方

Private Sub Command1_Click()
   Dim filename
  nwmp3play1.mp3_filemode
  CommonDialog1.filename = "*.mp3"
  CommonDialog1.Filter = "*.mp3"
  CommonDialog1.DialogTitle = "打开MP3文件"
  CommonDialog1.ShowOpen
  filename = CommonDialog1.filename
  If filename <> "*.mp3" Then
      nwmp3play1.mp3_filename = filename
      nwmp3play1.mp3_play
  End If
End SubPrivate Sub Command2_Click()
   nwmp3play1.mp3_play
End SubPrivate Sub Command3_Click()
   nwmp3play1.mp3_pause
End SubPrivate Sub Command4_Click()
    nwmp3play1.mp3_stop
End SubPrivate Sub Command5_Click()
  Dim filename
  CommonDialog1.filename = "*.bmp"
  CommonDialog1.Filter = "*.bmp"
  CommonDialog1.DialogTitle = "打开BMP文件"
  CommonDialog1.ShowOpen
  
  filename = CommonDialog1.filename
  If filename <> "*.bmp" Then
      nwmp3play1.change_dlgpic = filename
  End If
End SubPrivate Sub Command6_Click()
    End
End Sub
下面是问题所在
行 18: 控件 nwmp3play1 的类 NWNETMP3LibCtl.nwmp3play 不是一个已加载的控件类。
行 26: 控件 CommonDialog1 的类 MSComDlg.CommonDialog 不是一个已加载的控件类。
行 21: 属性名 OleObjectBlob 在 nwmp3play1 中是无效的。
行 29: 属性名 _ExtentX 在 CommonDialog1 中是无效的。
行 30: 属性名 _ExtentY 在 CommonDialog1 中是无效的。
行 31: 属性名 _Version 在 CommonDialog1 中是无效的。
行 32: 属性名 DialogTitle 在 CommonDialog1 中是无效的。
行 33: 属性名 FileName 在 CommonDialog1 中是无效的。
行 34: 属性名 Filter 在 CommonDialog1 中是无效的。
请问怎么解决