ShowShearDlg Example for Visual Basic

Dim RasterImgDlg   As New LEADRasterDlgImg
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer

Private Sub Shear_Click()
   RasterImgDlg.EnableHorizontal = True
   RasterImgDlg.Angle = 4500
   RasterImgDlg.BackColor = RGB(255, 0, 0) 
   RasterImgDlg.UIFlags = SHEAR_SHOW_PREVIEW Or _
                          SHEAR_SHOW_BACKCOLOR Or _
                          SHEAR_SHOW_HORIZONTAL
   RasterImgDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgDlg.ShowShearDlg(hWnd) 
   If (nRet = 0 And RasterImgDlg.DialogStatus = DLG_OK) Then
      RasterProc.Shear LEADRasterView1.Raster, RasterImgDlg.Angle, RasterImgDlg.EnableHorizontal, RasterImgDlg.BackColor
   End If
End Sub