codice:
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hWndCallback As Long) As Long

Sub PlayMP3(NomeFile As String)

  Dim ReturnVal As Long
  Dim CmdStr As String
    
  CmdStr = "OPEN " & NomeFile & " TYPE mpegvideo "
  CmdStr = CmdStr & "ALIAS myMP3"
  ReturnVal = mciSendString(CmdStr, vbNullString, 0, 0)
  ReturnVal = mciSendString("PLAY myMP3 FROM 0", 0&, 0, 0)
  
End Sub

Sub CloseMP3()
  mciSendString "STOP MyMP3", vbNullString, 0, 0
  mciSendString "CLOSE MyMP3", vbNullString, 0, 0
End Sub