ShowRotateDlg Example for Visual Basic

Dim RasterImgDlg   As New LEADRasterDlgImg
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer
Private Sub Rotate_Click()
   RasterImgDlg.EnableZoomToFit = False
   RasterImgDlg.BackColor = RGB(255, 0, 0) 
   RasterImgDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   RasterImgDlg.UIFlags = ROTATE_SHOW_PREVIEW Or _
                               ROTATE_SHOW_BACKCOLOR Or _
                               ROTATE_SHOW_RESIZE
   
   RasterImgDlg.EnableMethodErrors = False
   RasterImgDlg.ShowHelpButton = True

   nRet = RasterImgDlg.ShowRotateDlg(hWnd) 
   If (nRet = 0 And RasterImgDlg.DialogStatus = DLG_OK) Then
      RasterProc.Rotate LEADRasterView1.Raster, RasterImgDlg.Angle, RasterImgDlg.RotateFlags,  _
   RasterImgDlg.BackColor
   End If
End Sub