'VB6
    Declare Sub AVIFileOpen Lib "avifil32.dll" (ByRef ppfile As Long, ByVal _
      szFile As String, ByVal uMode As Long, ByVal lpHandler As Long)
 
'VB.NET
    Declare Auto Sub AVIFileOpen Lib "avifil32.dll" (ByRef ppfile As Integer, _
      ByVal szFile As String, ByVal uMode As Integer, ByVal lpHandler As _
      Integer)