API 32bit
Declare Function mciSendString Lib "winmm.dll" Alias _
    "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
    lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
    hwndCallback As Long) As Long
	
API 16bit
Declare Function mciSendString Lib "mmsystem" (ByVal lpstrCommand$, ByVal lpstrReturnStr As Any, ByVal wReturnLen%, ByVal hCallBack%) As Long

WAV FILES	

i = mciSendString("open c:\sound.wav type waveaudio alias voice1", 0&, 0, 0)
i = mciSendString("play voice1", 0&, 0, 0)
i = mciSendString("play voice1 from 3000", 0&, 0, 0)
i = mciSendString("play voice1 from 1000 to 2000", 0&, 0, 0)
i = mciSendString("pause voice1", 0&, 0, 0)
i = mciSendString("resume voice1", 0&, 0, 0)
i = mciSendString("stop voice1", 0&, 0, 0)  
i = mciSendString("play voice1 from 0", 0&, 0, 0)  
i = mciSendString("record voice1", 0&, 0, 0)
i = mciSendString("record voice1 from 2000 to 4000", 0&, 0, 0)
i = mciSendString("record voice1 overwrite", 0&, 0, 0)  
i = mciSendString("record voice1 insert", 0&, 0, 0) 
i = mciSendString("delete voice1 from 2000 to 4000", 0&, 0, 0)
i = mciSendString("save voice1 c:\test.wav", 0&, 0, 0)
i = mciSendString("close voice1", 0&, 0, 0) 
i = mciSendString("open new type waveaudio alias capture", 0&, 0, 0)  
i = mciSendString("set capture bitspersample 8", 0&, 0, 0)
i = mciSendString("set capture samplespersec 11025", 0&, 0, 0)
i = mciSendString("set capture channels 1", 0&, 0, 0)
i = mciSendString("record capture", 0&, 0, 0)
i = mciSendString("save capture c:\NewWave.wav", 0&, 0, 0)  


AVI FILES	

i = mciSendString("open c:\myvideo.avi type avivideo alias video1", 0&, 0, 0)
i = mciSendString("play video1", 0&, 0, 0)
i = mciSendString("play video1 from 4", 0&, 0, 0)
i = mciSendString("play video1 from 15 to 20", 0&, 0, 0)
i = mciSendString("play video1 wait", 0&, 0, 0)
i = mciSendString("pause video1", 0&, 0, 0)
i = mciSendString("resume video1", 0&, 0, 0)
i = mciSendString("stop video1", 0&, 0, 0)
i = mciSendString("play video1 from 0", 0&, 0, 0)
i = mciSendString("seek video1 to 9", 0&, 0, 0)
i = mciSendString("close video1", 0&, 0, 0)
i = mciSendString("set video1 audio all off", 0&, 0, 0)
i = mciSendString("set video1 audio all on", 0&, 0, 0)


Audio CD	

i = mciSendString("open cdaudio alias cd", 0, 0, 0)
i = mciSendString("open f:\ type cdaudio alias cd2", 0&, 0, 0)
i = mciSendString("set cd time  format tmsf", 0&, 0, 0)
i = mciSendString("set cd time format milliseconds", 0, 0, 0)
i = mciSendString("set cd time format ms", 0, 0, 0)  
i = mciSendString("play cd", 0&, 0, 0)
i = mciSendString("play cd from 4", 0&, 0, 0)
i = mciSendString("play cd from 2001 to 3400", 0&, 0, 0)
i = mciSendString("play cd wait", 0&, 0, 0)
i = mciSendString("pause cd", 0&, 0, 0)
i = mciSendString("resume cd", 0&, 0, 0)
i = mciSendString("stop cd", 0&, 0, 0)
i = mciSendString("play cd from 0", 0&, 0, 0)
i = mciSendString("seek cd to 1000", 0&, 0, 0)
i = mciSendString("close cd", 0&, 0, 0)
i = mciSendString("set cd audio all on", 0&, 0, 0)
i = mciSendString("set cd audio all off", 0&, 0, 0)
i = mciSendString("set cd audio left on", 0&, 0, 0)
i = mciSendString("set cd audio left off", 0&, 0, 0)
i = mciSendString("set cd audio right on", 0&, 0, 0)
i = mciSendString("set cd audio right off", 0&, 0, 0)