SkipFile example for Visual Basic

Private Sub LEADThumb1_ThumbnailEvent(ByVal Bitmap As Long, ByVal pszFilename As String, ByVal nStatusCode As Integer, ByVal nPercent As Integer)
    Dim out$
    
    If (nStatusCode = 0) Then 'successful thumbnail generation
        'save thumbnails in a multipage TIFF file
        LEADRaster1.Bitmap = Bitmap
        LEADRasterIO1.Save LEADRaster1, "d:\temp\thumbs.tif", FILE_TIF, 24, 0, SAVE_APPEND
        out$ = pszFilename & Chr(13)
        out$ = out$ & "Format: " & CStr(LEADThumb1.InfoFormat) & Chr(13)
        out$ = out$ & "Compression: " & CStr(LEADThumb1.InfoCompression) & Chr(13)
        out$ = out$ & "Bits: " & CStr(LEADThumb1.InfoBits) & Chr(13)
        out$ = out$ & "Width: " & CStr(LEADThumb1.InfoWidth) & Chr(13)
        out$ = out$ & "Height: " & CStr(LEADThumb1.InfoHeight) & Chr(13)
        out$ = out$ & "Page: " & CStr(LEADThumb1.InfoPage) & Chr(13)
        out$ = out$ & "TotalPages: " & CStr(LEADThumb1.InfoTotalPages) & Chr(13)
        out$ = out$ & "SizeDisk: " & CStr(LEADThumb1.InfoSizeDisk) & Chr(13)
        out$ = out$ & "SizeMem: " & CStr(LEADThumb1.InfoSizeMem) & Chr(13)
        out$ = out$ & "XRes: " & CStr(LEADThumb1.InfoXRes) & Chr(13)
        out$ = out$ & "YRes: " & CStr(LEADThumb1.InfoYRes) & Chr(13)
        MsgBox out$
    ElseIf (nStatusCode = BROWSE_PRELOAD) Then
        'check the extension, if it is ".DOC", then skip
        If (UCase(Right$(pszFilename, 4)) = ".DOC") Then
            LEADThumb1.SkipFile = True
            MsgBox "skipping - " & pszFilename
        End If
    End If
    LEADThumb1.ContinueBrowse = True 'continue the browse operation
End Sub