Public Function OpenMultimedia(hWnd As Long, AliasName As String, filename As String, typeDevice As String) As String'Callig OpenMultimedia will open the multimedia file'Parameters'hWnd'[in]handle of the window'which you want to play in. you can put handle for'your desktop if you want to playing movie in your desktop.'AliasName'[in]Specifies name for every multimedia file and it'should be difference  e.g.:'you want to play two multimedia files the first maybe'named "audio1" then you should name the other difference.'filename'[in]Specifies file name and the path it can contain any space'which you want to play.'typeDevice'[in] Specifies a type of MCI device and it could be from the following:'Type MCI       description                     driver file'sequencer      dealing with mid                mciseq.drv'               files'MPEGVideo      dealing with most multimedia    mciqtz.drv'               like mpg,mp3,mp2..'               au,aiff,..etc also support'               avi,vob(for DVD),midi,mid'               and rmi files.because of this'               my advice to you to use'               type "MPEGVideo" to playing'               MOST FILES even avi!!'               I got this info from my'               experiment when I opened'               System.ini in section MCI'               Then I must share others.'avivideo       deling with avi movie           mciavi.drv'the following types if you had ATI RAGE II or Later'(This VGA Card to Support DVD Video)'DvdVideo       This support DVD's Video        MciCinem.drv DVD'ATIMPEGVIDEO   to playing MPEG Video           mciatim1.drv'But my advice to you to not use type "ATIMPEGVIDEO" & "DvdVideo" because'Type MPEGVideo can support most Multimedia files and also support DVD's'Video if you had ATI RAGE II or LATER.'last note for DVD Video: you must have a fast computer'note : Type "MpegVideo" support these extensions:'qt , mov, dat,snd, mpg, mpa, mpv, enc, m1v, mp2,mp3, mpe, mpeg, mpm'au , snd, aif, aiff, aifc,wav,wmv,wma,avi,midi,mid,rmi,avi,etc.'Note if there are any new type in (system.ini in windows 98 or in registry in windows 2000)'it will supported by Type "MPEGVideo" because of this use type "MPEGVideo" to playing'Most Files and remember you can use sequencer for mid and avivideo for avi,,etc.'Now you must note using Type "MPEGVideo" can playing all Multimedia files'Note : if this Function success will return value string "Success"'or if not will return value string description the error which occur'Okay make sure if you used this function don't forget to use function'CloseMultimedia or CloseAll When you will end your program or you'will got error messageDim cmdToDo As String * 255Dim dwReturn As LongDim ret As String * 128Dim tmp As String * 255Dim lenShort As LongDim ShortPathAndFile As StringConst WS_CHILD = &H40000000lenShort = GetShortPathName(filename, tmp, 255)ShortPathAndFile = left$(tmp, lenShort) 'cut short path from buffercmdToDo = "open " & ShortPathAndFile & " type " & typeDevice & " Alias " & AliasName & " parent " & hWnd & " Style " & WS_CHILDdwReturn = mciSendString(cmdToDo, 0&, 0&, 0&)If Not dwReturn = 0 Then  'not success    mciGetErrorString dwReturn, ret, 128 'Get the error    OpenMultimedia = ret: Exit FunctionEnd If'SuccessOpenMultimedia = "Success"End FunctionPublic Function PlayMultimedia(AliasName As String, Optional from_where As String = "", Optional to_where As String = "") As String'Calling PlayMultimedia will playing the multimedia file.'Parameters'AliasName'[in]Specifies name alias name which you want play it'Note : you must let this parameter the alias which you'used it OpenMultimedia Function or this function not Success'from_where'[in] Specifies the first frame in playing'to_where'[in]Specifies the last frame in playing'if from_where is vbNullString and the to_where is vbNullString the Function will:'playing from the beginning to end.'if from_where is 10 and to_where is 100 the Function will:'playing from 10 to 100 and stop.'if from_where is vbNullString and to_where is 100 the Function will:'playing from the beginning to 100 and stop.'if from_where is 104 and to_where is vbNullString the Function will:'playing from 104 to end.'Note :the numbers 10,100,104 is an example for from where start playing to where end playing'Note : if this Function success will return value string "Success"'or if not will return value string description the error which occurIf from_where = vbNullString Then from_where = 0If to_where = vbNullString Then to_where = GetTotalframes(AliasName)'Improtant for auto repeatIf AliasName = glo_AliasName Then    glo_from = from_where    glo_to = to_whereEnd IfDim cmdToDo As String * 128Dim dwReturn As LongDim ret As String * 128cmdToDo = "play " & AliasName & " from " & from_where & " to " & to_wheredwReturn = mciSendString(cmdToDo, 0&, 0&, 0&) 'playIf Not dwReturn = 0 Then  'not success    mciGetErrorString dwReturn, ret, 128 'get the error    PlayMultimedia = ret    Exit FunctionEnd If'SuccessPlayMultimedia = "Success"End FunctionPublic Function CloseMultimedia(AliasName As String) As String'Calling CloseMultimedia will close the multimedia file'Parameters'AliasName'[in]Specifies name alias name which you want Close it'Note : you must let this parameter the alias which you'used it OpenMultimedia Function or this function not Success'you must call this function if you called OpenMultimedia'And want to close your program or you will get an error message'Note : if this Function success will return value string "Success"'or if not will return value string description the error which occurDim dwReturn As LongDim ret As String * 128dwReturn = mciSendString("Close " & AliasName, 0&, 0&, 0&) 'closeIf Not dwReturn = 0 Then  'not success    mciGetErrorString dwReturn, ret, 128 'Get the error    CloseMultimedia = ret    Exit FunctionEnd If'SuccessIf AliasName = glo_AliasName Then 'if alias the same'this mean the user close this alias then we must delete'the timer FunctionKillTimer glo_hWnd, 500End IfCloseMultimedia = "Success"End Function