ShowAutoTrimDlg Example for Visual Basic

Dim RasterImgDlg   As New LEADRasterDlgImg
Dim RasterIO As New LEADRasterIO
Dim nRet As Integer

Private Sub AutoTrim_Click()
   RasterImgDlg.UIFlags = AUTOTRIM_SHOW_PREVIEW
   RasterImgDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgDlg.ShowAutoTrimDlg (hWnd) 
   If (nRet = 0 And RasterImgDlg.DialogStatus = DLG_OK) Then
         RasterProc.AutoTrim LEADRasterView1.Raster, RasterImgDlg.Threshold
   End If
End Sub