ShowWindowLevelDlg Example for Visual Basic

   Dim RasterColorDlg As New LEADRasterDlgClr
   
   RasterColorDlg.LowBit = LEADRasterView1.Raster.MinBit
   RasterColorDlg.HighBit = LEADRasterView1.Raster.MaxBit
   RasterColorDlg.WindowLevelLow = LEADRasterView1.Raster.MinVal
   RasterColorDlg.WindowLevelHigh = LEADRasterView1.Raster.MaxVal

   Select Case LEADRasterView1.Raster.IsGrayscale
   Case GRAY_ORDEREDNORMAL
         RasterColorDlg.StartColor = RGB(0, 0, 0)
         RasterColorDlg.EndColor = RGB(255, 255, 255)
   Case GRAY_ORDEREDINVERSE
         RasterColorDlg.StartColor = RGB(255, 255, 255)
         RasterColorDlg.EndColor = RGB(0, 0, 0)
   Case GRAY_NOTORDERED
         RasterColorDlg.StartColor = RGB(0, 0, 0)
         RasterColorDlg.EndColor = RGB(255, 255, 255)
   Case Else
      MsgBox "Window Level is not supported for this bitmap order"
      Exit Sub
   End Select
   
   RasterColorDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   RasterColorDlg.WindowLevelFlags = FILL_LUT_OUTSIDE Or FILL_LUT_LINEAR
   RasterColorDlg.UIFlags = WINDOWLEVEL_SHOW_PREVIEW Or _
                              WINDOWLEVEL_SHOW_TOOL_ZOOMLEVEL Or _
                              WINDOWLEVEL_SHOW_RANGE Or _
                              WINDOWLEVEL_AUTOPROCESS

   RasterColorDlg.ShowWindowLevelDlg hWnd