InfoBits 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
      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$
    End If
    LEADThumb1.ContinueBrowse = True 'continue the browse operation
End Sub