Простой аудио-видео плеер
При своих ~20 строчках, этот проигрыватель умеет воспроизводить аудио и видео, открывать диалоговое окно для выбора файлов, изменять громкость, скорость , изменять размер видеоокна, и пр.
Естественно это жутко ограниченная вещь как в плане форматов, так и в плане гибкости. Но думается и не следует ожидать от такого плеера большего 
Может пригодиться для каких диалоговых окон по настройке звука в своей программе.
Code
#Include "windows.bi"
#Include "win/vfw.bi"
Dim msg As MSG
Dim Shared As Integer oldproc
Function wndproc(hwnd As HWND, msg As Uinteger,_
wparam As WPARAM, lparam As LPARAM) As Integer
Select Case msg
Case WM_DESTROY
PostQuitMessage(0)
End Select
Return CallWindowProc(Cast(wndproc,oldproc),hwnd,msg,wparam,lparam)
End Function
Var hwnd = MCIWndCreate(NULL, 0,MCIWNDF_SHOWNAME or MCIWNDF_SHOWMODE Or _
WS_OVERLAPPEDWINDOW Or WS_VISIBLE, NULL)
oldproc=SetWindowLong(hwnd,GWL_WNDPROC,Cast(Long,@wndproc))
While GetMessage(@msg,0,0,0)
TranslateMessage(@msg)
DispatchMessage(@msg)
Wend
