ShowPNGWebTunerDlg Example for Visual Basic

    Dim RasterWebDlg As New LEADRasterDlgWeb_U
    Dim nRet As Integer

    RasterWebDlg.TransparentColor = RGB(255, 255, 255)
    RasterWebDlg.PaletteType = CRP_FIXEDPALETTE
    RasterWebDlg.EnableWindowsColors = True
    RasterWebDlg.DitherType = CRD_FLOYDSTEINDITHERING
    RasterWebDlg.BitsPerPixel = 8
    RasterWebDlg.NumberOfColors = 256
    RasterWebDlg.TransparencyTolerance = 25
    RasterWebDlg.EnableTransparent = True

    RasterWebDlg.UIFlags = PNGWEBTUNER_SHOW_INFORMATION + _
                            PNGWEBTUNER_SHOW_PREVIEW + _
                            PNGWEBTUNER_SHOW_TOOL_ZOOMLEVEL + _
                            PNGWEBTUNER_SHOW_TOOL_COLORPICKER + _
                            PNGWEBTUNER_SHOW_TRANSPARENCY + _
                            PNGWEBTUNER_SHOW_ADDWINDOWCOLOR

    RasterWebDlg.Bitmap = LEAD1.Bitmap
    RasterWebDlg.EnableZoomToFit = False

    nRet = RasterWebDlg.ShowPNGWebTunerDlg(hWnd)
    If (nRet = 0 And RasterWebDlg.DialogStatus = DLG_OK) Then
        LEAD1.ColorRes RasterWebDlg.BitsPerPixel, _
                          RasterWebDlg.PaletteType, _
                          RasterWebDlg.DitherType, _
                          0
    End If