ShowPicturizeDlg Example for Visual Basic

    Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx_U
    Dim nRet As Integer

    RasterImgEfxDlg.BitmapWidth = LEAD1.BitmapWidth
    RasterImgEfxDlg.BitmapHeight = LEAD1.BitmapHeight
    nRet = RasterImgEfxDlg.ShowPicturizeDlg(hWnd)
    If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
    LEAD1.Picturize RasterImgEfxDlg.DirectoryPath, _
                           RasterImgEfxDlg.PicturizeResizeFlags, _
                           RasterImgEfxDlg.CellWidth, _
                           RasterImgEfxDlg.CellHeight
    End If