ShowGIFWebTunerDlg Example for Visual Basic

Dim RasterWebDlg As New LEADRasterDlgWeb_U
Dim nRet As Integer

RasterWebDlg.Bitmap = LEAD1.Bitmap
RasterWebDlg.UIFlags = GIFWEBTUNER_SHOW_INFORMATION + _
                       GIFWEBTUNER_SHOW_PREVIEW + _
                       GIFWEBTUNER_SHOW_TOOL_ZOOMLEVEL + _
                       GIFWEBTUNER_SHOW_TOOL_COLORPICKER + _
                       GIFWEBTUNER_SHOW_TRANSPARENCY + _
                       GIFWEBTUNER_SHOW_OPTIONS + _
                       GIFWEBTUNER_SHOW_ADDWINDOWCOLOR

RasterWebDlg.ShowGIFWebTunerDlg hWnd
If (nRet = 0 And RasterWebDlg.DialogStatus = DLG_OK) Then
    LEAD1.Fill RasterWebDlg.TransparentColor
End If