RasterPictureBox Class

'Declaration
 
<DefaultPropertyAttribute("Image")>
<ToolboxBitmapAttribute()>
<DockingAttribute(DockingBehavior.Ask)>
Public Class RasterPictureBox 
   Inherits System.Windows.Forms.Control
   Implements System.ComponentModel.IComponent, System.ComponentModel.ISynchronizeInvoke, System.IDisposable, System.Windows.Forms.IBindableComponent, System.Windows.Forms.IDropTarget, System.Windows.Forms.IWin32Window 

Public Sub RasterPictureBox_RasterPictureBox()
      Dim form As MyForm1 = New MyForm1()
      form.ShowDialog()
   End Sub

   Private Class MyForm1 : Inherits Form
      Private thePictureBox As RasterPictureBox

      Public Sub New()
         ' Create the raster PictureBox
         thePictureBox = New RasterPictureBox()
         thePictureBox.Dock = DockStyle.Fill
         thePictureBox.BorderStyle = BorderStyle.Fixed3D
         thePictureBox.UseDpi = False

         ' Set the paint properties
         Dim p As RasterPaintProperties = New RasterPaintProperties()
         p.PaintDisplayMode = RasterPaintDisplayModeFlags.Bicubic
         p.PaintEngine = RasterPaintEngine.GdiPlus
         p.UsePaintPalette = True
         thePictureBox.PaintProperties = p

         Controls.Add(thePictureBox)
         thePictureBox.BringToFront()

         ' load an image into the viewer
         Dim codecs As RasterCodecs = New RasterCodecs()
             thePictureBox.Image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "eye.gif"))
             codecs.Dispose()

             Text = String.Format("Size mode = {0}, double click to change", thePictureBox.SizeMode)

             AddHandler thePictureBox.DoubleClick, AddressOf thePictureBox_DoubleClick
         End Sub

         Private Sub thePictureBox_DoubleClick(ByVal sender As Object, ByVal e As EventArgs)
             Select Case thePictureBox.SizeMode
                 Case RasterPictureBoxSizeMode.Normal
                     thePictureBox.SizeMode = RasterPictureBoxSizeMode.StretchImage

                 Case RasterPictureBoxSizeMode.StretchImage
                     thePictureBox.SizeMode = RasterPictureBoxSizeMode.Fit

                 Case RasterPictureBoxSizeMode.Fit
                     thePictureBox.SizeMode = RasterPictureBoxSizeMode.AutoSize

                 Case RasterPictureBoxSizeMode.AutoSize
                     thePictureBox.SizeMode = RasterPictureBoxSizeMode.CenterImage

                 Case RasterPictureBoxSizeMode.CenterImage
                     thePictureBox.SizeMode = RasterPictureBoxSizeMode.Normal
             End Select

             Text = String.Format("Size mode = {0}, double click to change", thePictureBox.SizeMode)

             MyBase.OnDoubleClick(e)
         End Sub
     End Class

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class