Option Explicit
 
Public Const OF_SHARE_DENY_WRITE As Long = &H20
Public Const AVIERR_OK As Long = 0&
 
Public Const streamtypeVIDEO As Long = 1935960438
Global Const BI_RGB As Long = 0
 
'AVIFIL32
Public Declare Sub AVIFileInit Lib "avifil32.dll" ()
Public Declare Sub AVIFileExit Lib "avifil32.dll" ()
Public Declare Function AVIFileOpen Lib "avifil32.dll" _
        (ByRef ppfile As Long, ByVal szFile As String, ByVal uMode As Long, _
        ByVal pclsidHandler As Long) As Long
Public Declare Function AVIFileGetStream Lib "avifil32.dll" _
        (ByVal pfile As Long, ByRef ppaviStream As Long, ByVal fccType As Long, _
        ByVal lParam As Long) As Long
Public Declare Function AVIStreamStart Lib "avifil32.dll" (ByVal pavi As Long) _
  As Long
Public Declare Function AVIStreamLength Lib "avifil32.dll" (ByVal pavi As Long) _
As Long
Public Declare Function AVIFileInfo Lib "avifil32.dll" (ByVal pfile As Long, _
        pfi As AVI_FILE_INFO, ByVal lSize As Long) As Long
Public Declare Function AVIStreamInfo Lib "avifil32.dll" (ByVal pAVIStream As _
  Long, _
        ByRef psi As AVI_STREAM_INFO, ByVal lSize As Long) As Long
Public Declare Function AVIStreamGetFrameOpen Lib "avifil32.dll" _
        (ByVal pAVIStream As Long, ByRef bih As Any) As Long
Public Declare Function AVIStreamGetFrame Lib "avifil32.dll" (ByVal _
  pGetFrameObj As Long, _
        ByVal lPos As Long) As Long
Public Declare Function AVIStreamGetFrameClose Lib "avifil32.dll" _
        (ByVal pGetFrameObj As Long) As Long
Public Declare Function AVIStreamRelease Lib "avifil32.dll" (ByVal pavi As _
  Long) As Long
Public Declare Function AVIFileRelease Lib "avifil32.dll" (ByVal pfile As Long) _
As Long
 
Public Type BitmapInfoHeader
   biSize As Long
   biWidth As Long
   biHeight As Long
   biPlanes As Integer
   biBitCount As Integer
   biCompression As Long
   biSizeImage As Long
   biXPelsPerMeter As Long
   biYPelsPerMeter As Long
   biClrUsed As Long
   biClrImportant As Long
End Type
 
Public Type AVI_RECT
    left As Long
    top As Long
    right As Long
    bottom As Long
End Type
 
Public Type AVI_STREAM_INFO
    fccType As Long
    fccHandler As Long
    dwFlags As Long
    dwCaps As Long
    wPriority As Integer
    wLanguage As Integer
    dwScale As Long
    dwRate As Long
    dwStart As Long
    dwLength As Long
    dwInitialFrames As Long
    dwSuggestedBufferSize As Long
    dwQuality As Long
    dwSampleSize As Long
    rcFrame As AVI_RECT
    dwEditCount  As Long
    dwFormatChangeCount As Long
    szName As String * 64
End Type
 
Public Type AVI_FILE_INFO
    dwMaxBytesPerSecond As Long
    dwFlags As Long
    dwCaps As Long
    dwStreams As Long
    dwSuggestedBufferSize As Long
    dwWidth As Long
    dwHeight As Long
    dwScale As Long
    dwRate As Long
    dwLength As Long
    dwEditCount As Long
    szFileType As String * 64
End Type
 
 
'GDI32
Public Declare Function CreateCompatibleDC Lib "gdi32.dll" ( _
     ByVal hdc As Long) As Long
Public Declare Function SelectObject Lib "gdi32.dll" ( _
     ByVal hdc As Long, _
     ByVal hObject As Long) As Long
Public Declare Function BitBlt Lib "gdi32.dll" ( _
     ByVal hDestDC As Long, _
     ByVal x As Long, _
     ByVal y As Long, _
     ByVal nWidth As Long, _
     ByVal nHeight As Long, _
     ByVal hSrcDC As Long, _
     ByVal xSrc As Long, _
     ByVal ySrc As Long, _
     ByVal dwRop As Long) As Long
Public Declare Function DeleteDC Lib "gdi32.dll" ( _
     ByVal hdc As Long) As Long