Prefixed Proportional Rubberband VB.NET application

Private Sub InitializeForm()   
  <...
  >...
  ' Added lines to standard code
  ' Default to Portrait
  cropWidth = 400
  cropHeight = 600
 <...
  >...
End Sub 

Private Sub SetCropRatio(ByVal width As Integer, ByVal height As Integer)
        cropWidth = width
        cropHeight = height
        bitmapViewerMainView.Rubberband = rectangleRubberbandExample
        bitmapViewerMainView.Navigator = Nothing
        rectangleRubberbandExample.Ratio = cropWidth / cropHeight
        UnpushToolBarButtons()
        CropToolStripMenuItem.Enabled = (rectangleRubberbandExample.Rectangle.Width > 0) AndAlso (rectangleRubberbandExample.Rectangle.Height > 0)
End Sub

Private Sub cmdCrop1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCrop1.Click
   'Portrait      
   SetCropRatio(400, 600)
End Sub

Private Sub cmdCrop2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCrop2.Click
   'Landscape        
   SetCropRatio(600, 400)
End Sub

Private Sub cmdCrop3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCrop3.Click
   ' Square        
   SetCropRatio(600, 600)
End Sub

Private Sub cmdCrop4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCrop4.Click
   'Letterbox     
   SetCropRatio(600, 300)
End Sub

Private Sub cmdCrop5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCrop5.Click
   'Panoramic 
   SetCropRatio(800, 300)
End Sub

Private Sub cmdCrop6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCrop6.Click
  'Blog Page Header
   SetCropRatio(800, 200)
End Sub

Private Sub cmdCrop7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCrop7.Click
    'Crop from example and new call to Resize        
    If (rectangleRubberbandExample.Rectangle.Width > 0) AndAlso _
        (rectangleRubberbandExample.Rectangle.Height > 0) Then

            Dim cropRectangle As Rectangle = rectangleRubberbandExample.Rectangle
            
            rectangleRubberbandExample.Rectangle = New Rectangle(0, 0, _
            rectangleRubberbandExample.Rectangle.Width, _
            rectangleRubberbandExample.Rectangle.Height)

            ApplyTransform(New Crop(cropRectangle))
            'New code to resize
            ApplyTransform(New Resize(cropWidth, cropHeight, InterpolationMode.MediumQuality))
        End If
End Sub