Picturize example for Visual Basic

' replace the current image in the main control with an image created
' from all the images present in c:\images. Resize all images present in that directory
' to 16x16 pixels and load them all in memory before proceeding

'Declare the Raster objects WithEvents
Private WithEvents RasterProc As LEADRasterProcess

‘Create the Raster objects
Private Sub Form_Load()
    Set RasterProc = CreateObject("LEADRasterProcess.LEADRasterProcess. ")

End Sub



 LEADRasterView1.ScaleMode = SCALEMODE_TWIP
RasterProc.Picturize LEADRasterView1.Raster, _
                     "c:\images", _
                     PICTURIZE_LOADALL Or PICTURIZE_RESIZE, _
                     16, 16