filedialog "Select an MP3 file", "*.mp3", mp3file$
if mp3file$ = "" then end
ret$ = mciSendString$("open " + chr$(34) + mp3file$ + chr$(34) + _
" type mpegvideo alias music")
ret$ = mciSendString$("play music")
if ret$ = "" then print "Playing "; mp3file$
end
function mciSendString$(s$)
buffer$ = space$(1024)+chr$(0)
buflen = len(buffer$)
calldll #winmm, "mciSendStringA", s$ as ptr, buffer$ as ptr,_
buflen as long, 0 as long, ret as short
if ret then
mciSendString$ = "error ";ret
else
mciSendString$ = trim$(buffer$)
end if
end function