CreateThumbnailFromFile example for Visual Basic

   LEADThumb1.LoadStamp = False
   LEADThumb1.ForceSize = True
   LEADThumb1.ThumbnailBackgroundColor = vbGreen
   LEADThumb1.ThumbnailWidth = 80
   LEADThumb1.ThumbnailHeight = 40
   LEADThumb1.CreateThumbnailFromFile "c:\temp\testdb6.tif", 1
   LEADThumb1.CreateThumbnailFromFile "c:\temp\testdb6.tif", 2
   LEADThumb1.CreateThumbnailFromFile "c:\temp\testdb6.tif", 3
Private Sub LEADThumb1_ThumbnailEvent(ByVal Bitmap As Long, ByVal pszFilename As String, ByVal nStatusCode As Integer, ByVal nPercent As Integer)
    If (nStatusCode = 0 And nPercent = 0 And Bitmap <> 0) Then
        MsgBox "Done loading " + pszFilename
    End If
End Sub