Dim a As New AForge.Video.VFW.AVIReader
        a.Open("c:\a.avi")
        For i As Integer = 1 To a.Length
            a.GetNextFrame.Save("C:\videocomp\" & i & ".jpg", _
              System.Drawing.Imaging.ImageFormat.Jpeg)
        Next