ShowContrastDlg Example for Visual Basic

    Dim RasterColorDlg As New LEADRasterDlgClr_U
    Dim nRet As Integer
   
   RasterColorDlg.UIFlags = CONTRAST_SHOW_PREVIEW Or _
                            CONTRAST_SHOW_TOOL_ZOOMLEVEL
   RasterColorDlg.Bitmap = LEAD1.Bitmap
   nRet = RasterColorDlg.ShowContrastDlg(hWnd)
   If (nRet = 0 And RasterColorDlg.DialogStatus = DLG_OK) Then
      LEAD1.Contrast RasterColorDlg.Change
   End If