ShowGIFWebTunerDlg Example for Visual Basic

Dim RasterWebDlg As New LEADRasterDlgWeb
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer

Private Sub GIFWebTuner_Click()
   RasterWebDlg.Bitmap = LEADRasterView1.Raster.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
         RasterProc.Fill LEADRasterView1.Raster, RasterWebDlg.TransparentColor
   End If
End Sub