ShowJPEGWebTunerDlg Example for Visual Basic

    Dim RasterWebDlg As New LEADRasterDlgWeb_U
    Dim nRet As Integer

    RasterWebDlg.Bitmap = LEAD1.Bitmap
    RasterWebDlg.UIFlags = JPEGWEBTUNER_SHOW_INFORMATION + _
                                         JPEGWEBTUNER_SHOW_PREVIEW + _
                                         JPEGWEBTUNER_SHOW_TOOL_ZOOMLEVEL + _
                                         JPEGWEBTUNER_SHOW_SAVETHUMBNAIL + _
                                         JPEGWEBTUNER_SHOW_OPTIONS + _
                                         JPEGWEBTUNER_SHOW_SAVETHUMBNAIL

    nRet = RasterWebDlg.ShowJPEGWebTunerDlg(hWnd)
   
    If (nRet = 0 And RasterWebDlg.DialogStatus = DLG_OK) Then
      If (RasterWebDlg.EnableProgressive) Then
        RasterIO.ProgressivePasses ProgressivePasses = 1
      End If
      If RasterWebDlg.EnableStamp Then
         LEAD1.SaveWithStamp "d:\temp\output.jpg", _
                                 RasterWebDlg.JPEGFormat, _
                                 24, _
                                 RasterWebDlg.Quality, _
                                 32, _
                                 32, _
                                 24
         Else
         LEAD1.Save "d:\temp\output.jpg", _
                       RasterWebDlg.JPEGFormat, _
                       24, _
                       RasterWebDlg.Quality, _
                       SAVE_OVERWRITE
         End If
    End If