Option Strict Off
Option Explicit On
Friend Class Form1
	Inherits System.Windows.Forms.Form
#Region "Windows Form Designer generated code "
	Public Sub New()
		MyBase.New()
		If m_vb6FormDefInstance Is Nothing Then
			If m_InitializingDefInstance Then
				m_vb6FormDefInstance = Me
			Else
				Try 
					'For the start-up form, the first instance created is the default instance.
					If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
						m_vb6FormDefInstance = Me
					End If
				Catch
				End Try
			End If
		End If
		'This call is required by the Windows Form Designer.
		InitializeComponent()
	End Sub
	'Form overrides dispose to clean up the component list.
	Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
		If Disposing Then
			If Not components Is Nothing Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(Disposing)
	End Sub
	'Required by the Windows Form Designer
	Private components As System.ComponentModel.IContainer
    Public WithEvents Combo6 As System.Windows.Forms.ComboBox
	Public WithEvents Combo5 As System.Windows.Forms.ComboBox
	Public WithEvents Combo4 As System.Windows.Forms.ComboBox
	Public WithEvents Label7 As System.Windows.Forms.Label
	Public WithEvents Label6 As System.Windows.Forms.Label
	Public WithEvents Label5 As System.Windows.Forms.Label
	Public WithEvents Frame3 As System.Windows.Forms.GroupBox
	Public WithEvents Combo3 As System.Windows.Forms.ComboBox
	Public WithEvents Combo2 As System.Windows.Forms.ComboBox
	Public WithEvents Combo1 As System.Windows.Forms.ComboBox
	Public WithEvents Label4 As System.Windows.Forms.Label
	Public WithEvents Label3 As System.Windows.Forms.Label
	Public WithEvents Label2 As System.Windows.Forms.Label
	Public WithEvents Label1 As System.Windows.Forms.Label
	Public WithEvents Frame2 As System.Windows.Forms.GroupBox
	Public WithEvents Frame1 As System.Windows.Forms.GroupBox
	Public WithEvents Text1 As System.Windows.Forms.TextBox
	Public WithEvents Command3 As System.Windows.Forms.Button
	Public WithEvents ImageKit1 As AxIMAGEKIT7Lib.AxImageKit
	Public WithEvents Command2 As System.Windows.Forms.Button
	Public WithEvents Command1 As System.Windows.Forms.Button
    'NOTE: The following procedure is required by the Windows Form Designer
	'It can be modified using the Windows Form Designer.
	'Do not modify it using the code editor.
    Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.Frame3 = New System.Windows.Forms.GroupBox
        Me.Combo6 = New System.Windows.Forms.ComboBox
        Me.Combo5 = New System.Windows.Forms.ComboBox
        Me.Combo4 = New System.Windows.Forms.ComboBox
        Me.Label7 = New System.Windows.Forms.Label
        Me.Label6 = New System.Windows.Forms.Label
        Me.Label5 = New System.Windows.Forms.Label
        Me.Frame2 = New System.Windows.Forms.GroupBox
        Me.Combo3 = New System.Windows.Forms.ComboBox
        Me.Combo2 = New System.Windows.Forms.ComboBox
        Me.Combo1 = New System.Windows.Forms.ComboBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label1 = New System.Windows.Forms.Label
        Me.Frame1 = New System.Windows.Forms.GroupBox
        Me.RadioButton3 = New System.Windows.Forms.RadioButton
        Me.RadioButton2 = New System.Windows.Forms.RadioButton
        Me.RadioButton1 = New System.Windows.Forms.RadioButton
        Me.Text1 = New System.Windows.Forms.TextBox
        Me.Command3 = New System.Windows.Forms.Button
        Me.ImageKit1 = New AxIMAGEKIT7Lib.AxImageKit
        Me.Command2 = New System.Windows.Forms.Button
        Me.Command1 = New System.Windows.Forms.Button
        Me.Frame3.SuspendLayout()
        Me.Frame2.SuspendLayout()
        Me.Frame1.SuspendLayout()
        CType(Me.ImageKit1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Frame3
        '
        Me.Frame3.BackColor = System.Drawing.SystemColors.Control
        Me.Frame3.Controls.Add(Me.Combo6)
        Me.Frame3.Controls.Add(Me.Combo5)
        Me.Frame3.Controls.Add(Me.Combo4)
        Me.Frame3.Controls.Add(Me.Label7)
        Me.Frame3.Controls.Add(Me.Label6)
        Me.Frame3.Controls.Add(Me.Label5)
        Me.Frame3.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Frame3.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame3.Location = New System.Drawing.Point(472, 296)
        Me.Frame3.Name = "Frame3"
        Me.Frame3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame3.Size = New System.Drawing.Size(153, 105)
        Me.Frame3.TabIndex = 7
        Me.Frame3.TabStop = False
        Me.Frame3.Text = "Brush (Fill)"
        '
        'Combo6
        '
        Me.Combo6.BackColor = System.Drawing.SystemColors.Window
        Me.Combo6.Cursor = System.Windows.Forms.Cursors.Default
        Me.Combo6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Combo6.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Combo6.Items.AddRange(New Object() {"White", "Black", "Red", "Blue", "Green", "Magenta", "Yellow", "Cyan"})
        Me.Combo6.Location = New System.Drawing.Point(64, 64)
        Me.Combo6.Name = "Combo6"
        Me.Combo6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Combo6.Size = New System.Drawing.Size(81, 22)
        Me.Combo6.TabIndex = 22
        Me.Combo6.Text = "White"
        '
        'Combo5
        '
        Me.Combo5.BackColor = System.Drawing.SystemColors.Window
        Me.Combo5.Cursor = System.Windows.Forms.Cursors.Default
        Me.Combo5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Combo5.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Combo5.Items.AddRange(New Object() {"Solid", "Diagonal", "Cross", "Diagonal Cross", "Horizontal", "Vertical", "Null"})
        Me.Combo5.Location = New System.Drawing.Point(64, 40)
        Me.Combo5.Name = "Combo5"
        Me.Combo5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Combo5.Size = New System.Drawing.Size(81, 22)
        Me.Combo5.TabIndex = 21
        Me.Combo5.Text = "Null"
        '
        'Combo4
        '
        Me.Combo4.BackColor = System.Drawing.SystemColors.Window
        Me.Combo4.Cursor = System.Windows.Forms.Cursors.Default
        Me.Combo4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Combo4.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Combo4.Items.AddRange(New Object() {"Black", "Red", "Blue", "Green", "Magenta", "Yellow", "Cyan", "White"})
        Me.Combo4.Location = New System.Drawing.Point(64, 16)
        Me.Combo4.Name = "Combo4"
        Me.Combo4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Combo4.Size = New System.Drawing.Size(81, 22)
        Me.Combo4.TabIndex = 18
        Me.Combo4.Text = "White"
        '
        'Label7
        '
        Me.Label7.BackColor = System.Drawing.SystemColors.Control
        Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label7.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label7.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label7.Location = New System.Drawing.Point(8, 64)
        Me.Label7.Name = "Label7"
        Me.Label7.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label7.Size = New System.Drawing.Size(57, 17)
        Me.Label7.TabIndex = 23
        Me.Label7.Text = "Backcolor"
        '
        'Label6
        '
        Me.Label6.BackColor = System.Drawing.SystemColors.Control
        Me.Label6.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label6.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label6.Location = New System.Drawing.Point(16, 40)
        Me.Label6.Name = "Label6"
        Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label6.Size = New System.Drawing.Size(32, 17)
        Me.Label6.TabIndex = 20
        Me.Label6.Text = "Style"
        '
        'Label5
        '
        Me.Label5.BackColor = System.Drawing.SystemColors.Control
        Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label5.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label5.Location = New System.Drawing.Point(16, 16)
        Me.Label5.Name = "Label5"
        Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label5.Size = New System.Drawing.Size(33, 17)
        Me.Label5.TabIndex = 19
        Me.Label5.Text = "Color"
        '
        'Frame2
        '
        Me.Frame2.BackColor = System.Drawing.SystemColors.Control
        Me.Frame2.Controls.Add(Me.Combo3)
        Me.Frame2.Controls.Add(Me.Combo2)
        Me.Frame2.Controls.Add(Me.Combo1)
        Me.Frame2.Controls.Add(Me.Label4)
        Me.Frame2.Controls.Add(Me.Label3)
        Me.Frame2.Controls.Add(Me.Label2)
        Me.Frame2.Controls.Add(Me.Label1)
        Me.Frame2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Frame2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame2.Location = New System.Drawing.Point(472, 192)
        Me.Frame2.Name = "Frame2"
        Me.Frame2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame2.Size = New System.Drawing.Size(153, 97)
        Me.Frame2.TabIndex = 6
        Me.Frame2.TabStop = False
        Me.Frame2.Text = "Pen (Border)"
        '
        'Combo3
        '
        Me.Combo3.BackColor = System.Drawing.SystemColors.Window
        Me.Combo3.Cursor = System.Windows.Forms.Cursors.Default
        Me.Combo3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Combo3.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Combo3.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10"})
        Me.Combo3.Location = New System.Drawing.Point(48, 64)
        Me.Combo3.Name = "Combo3"
        Me.Combo3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Combo3.Size = New System.Drawing.Size(41, 22)
        Me.Combo3.TabIndex = 12
        Me.Combo3.Text = "1"
        '
        'Combo2
        '
        Me.Combo2.BackColor = System.Drawing.SystemColors.Window
        Me.Combo2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Combo2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Combo2.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Combo2.Items.AddRange(New Object() {"Solid", "Dash", "Dot", "DashDot", "DashDotDot", "Null"})
        Me.Combo2.Location = New System.Drawing.Point(48, 40)
        Me.Combo2.Name = "Combo2"
        Me.Combo2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Combo2.Size = New System.Drawing.Size(81, 22)
        Me.Combo2.TabIndex = 10
        Me.Combo2.Text = "Solid"
        '
        'Combo1
        '
        Me.Combo1.BackColor = System.Drawing.SystemColors.Window
        Me.Combo1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Combo1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Combo1.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Combo1.Items.AddRange(New Object() {"Black", "Red", "Blue", "Green", "Magenta", "Yellow", "Cyan"})
        Me.Combo1.Location = New System.Drawing.Point(48, 16)
        Me.Combo1.Name = "Combo1"
        Me.Combo1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Combo1.Size = New System.Drawing.Size(81, 22)
        Me.Combo1.TabIndex = 8
        Me.Combo1.Text = "Black"
        '
        'Label4
        '
        Me.Label4.BackColor = System.Drawing.SystemColors.Control
        Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label4.Location = New System.Drawing.Point(88, 64)
        Me.Label4.Name = "Label4"
        Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label4.Size = New System.Drawing.Size(33, 17)
        Me.Label4.TabIndex = 14
        Me.Label4.Text = "Pixels"
        '
        'Label3
        '
        Me.Label3.BackColor = System.Drawing.SystemColors.Control
        Me.Label3.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label3.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label3.Location = New System.Drawing.Point(16, 64)
        Me.Label3.Name = "Label3"
        Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label3.Size = New System.Drawing.Size(33, 17)
        Me.Label3.TabIndex = 13
        Me.Label3.Text = "Width"
        '
        'Label2
        '
        Me.Label2.BackColor = System.Drawing.SystemColors.Control
        Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label2.Location = New System.Drawing.Point(16, 40)
        Me.Label2.Name = "Label2"
        Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label2.Size = New System.Drawing.Size(33, 17)
        Me.Label2.TabIndex = 11
        Me.Label2.Text = "Style"
        '
        'Label1
        '
        Me.Label1.BackColor = System.Drawing.SystemColors.Control
        Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label1.Location = New System.Drawing.Point(16, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label1.Size = New System.Drawing.Size(25, 17)
        Me.Label1.TabIndex = 9
        Me.Label1.Text = "Color"
        '
        'Frame1
        '
        Me.Frame1.BackColor = System.Drawing.SystemColors.Control
        Me.Frame1.Controls.Add(Me.RadioButton3)
        Me.Frame1.Controls.Add(Me.RadioButton2)
        Me.Frame1.Controls.Add(Me.RadioButton1)
        Me.Frame1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Frame1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame1.Location = New System.Drawing.Point(472, 112)
        Me.Frame1.Name = "Frame1"
        Me.Frame1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame1.Size = New System.Drawing.Size(153, 73)
        Me.Frame1.TabIndex = 5
        Me.Frame1.TabStop = False
        Me.Frame1.Text = "Select a Shape"
        '
        'RadioButton3
        '
        Me.RadioButton3.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.RadioButton3.Location = New System.Drawing.Point(16, 48)
        Me.RadioButton3.Name = "RadioButton3"
        Me.RadioButton3.Size = New System.Drawing.Size(104, 16)
        Me.RadioButton3.TabIndex = 2
        Me.RadioButton3.Text = "Ellipse"
        '
        'RadioButton2
        '
        Me.RadioButton2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.RadioButton2.Location = New System.Drawing.Point(16, 32)
        Me.RadioButton2.Name = "RadioButton2"
        Me.RadioButton2.Size = New System.Drawing.Size(104, 16)
        Me.RadioButton2.TabIndex = 1
        Me.RadioButton2.Text = "FillRect"
        '
        'RadioButton1
        '
        Me.RadioButton1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.RadioButton1.Location = New System.Drawing.Point(16, 16)
        Me.RadioButton1.Name = "RadioButton1"
        Me.RadioButton1.Size = New System.Drawing.Size(104, 16)
        Me.RadioButton1.TabIndex = 0
        Me.RadioButton1.Text = "Rectangle"
        '
        'Text1
        '
        Me.Text1.AcceptsReturn = True
        Me.Text1.AutoSize = False
        Me.Text1.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
        Me.Text1.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.Text1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Text1.ForeColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(0, Byte))
        Me.Text1.Location = New System.Drawing.Point(8, 0)
        Me.Text1.MaxLength = 0
        Me.Text1.Multiline = True
        Me.Text1.Name = "Text1"
        Me.Text1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text1.Size = New System.Drawing.Size(617, 64)
        Me.Text1.TabIndex = 4
        Me.Text1.Text = "The PrintDraw interface has numerous methods for drawing shapes. This sample illu" & _
        "strates 3 drawing methods and some pen and brush properties. Notice, for example" & _
        ", that for ellipses, pen width is always 1 when pen style is not solid. For Fill" & _
        "Rect, the pen properties are disabled completely. Other drawing methods, besides" & _
        " the ones shown here, include: Arc, Chord, FrameRect, Line, Pie, PolyBezier, Pol" & _
        "ygon, Polyline, and RoundRect. For details, please refer to the Help documentati" & _
        "on"
        '
        'Command3
        '
        Me.Command3.BackColor = System.Drawing.SystemColors.Control
        Me.Command3.Cursor = System.Windows.Forms.Cursors.Default
        Me.Command3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Command3.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Command3.Location = New System.Drawing.Point(472, 448)
        Me.Command3.Name = "Command3"
        Me.Command3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Command3.Size = New System.Drawing.Size(153, 33)
        Me.Command3.TabIndex = 3
        Me.Command3.Text = "End"
        '
        'ImageKit1
        '
        Me.ImageKit1.Location = New System.Drawing.Point(8, 72)
        Me.ImageKit1.Name = "ImageKit1"
        Me.ImageKit1.OcxState = CType(resources.GetObject("ImageKit1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.ImageKit1.Size = New System.Drawing.Size(457, 409)
        Me.ImageKit1.TabIndex = 2
        '
        'Command2
        '
        Me.Command2.BackColor = System.Drawing.SystemColors.Control
        Me.Command2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Command2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Command2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Command2.Location = New System.Drawing.Point(472, 408)
        Me.Command2.Name = "Command2"
        Me.Command2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Command2.Size = New System.Drawing.Size(153, 33)
        Me.Command2.TabIndex = 1
        Me.Command2.Text = "Draw Shape"
        '
        'Command1
        '
        Me.Command1.BackColor = System.Drawing.SystemColors.Control
        Me.Command1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Command1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Command1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Command1.Location = New System.Drawing.Point(472, 72)
        Me.Command1.Name = "Command1"
        Me.Command1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Command1.Size = New System.Drawing.Size(153, 33)
        Me.Command1.TabIndex = 0
        Me.Command1.Text = "Load Image"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.ClientSize = New System.Drawing.Size(632, 489)
        Me.Controls.Add(Me.Frame3)
        Me.Controls.Add(Me.Frame2)
        Me.Controls.Add(Me.Frame1)
        Me.Controls.Add(Me.Text1)
        Me.Controls.Add(Me.Command3)
        Me.Controls.Add(Me.ImageKit1)
        Me.Controls.Add(Me.Command2)
        Me.Controls.Add(Me.Command1)
        Me.Cursor = System.Windows.Forms.Cursors.Default
        Me.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Location = New System.Drawing.Point(4, 23)
        Me.Name = "Form1"
        Me.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text = "Getting Started Drawing Shapes"
        Me.Frame3.ResumeLayout(False)
        Me.Frame2.ResumeLayout(False)
        Me.Frame1.ResumeLayout(False)
        CType(Me.ImageKit1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
#End Region 
#Region "Upgrade Support "
	Private Shared m_vb6FormDefInstance As Form1
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As Form1
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New Form1()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	Dim DrawShape As String
	Dim PenColor As Integer
	Dim PenStyle As Short
	Dim PenWidth As Short
	Dim BrushColor As Integer
	Dim BrushStyle As Short
	Dim IkBackColor As Integer
	
	'set the pen color
	Private Sub Combo1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.SelectedIndexChanged
		If Combo1.Text = "Black" Then
			PenColor = &H0
		ElseIf Combo1.Text = "Red" Then 
			PenColor = &HFF
		ElseIf Combo1.Text = "Blue" Then 
			PenColor = &HFF0000
		ElseIf Combo1.Text = "Green" Then 
			PenColor = &HFF00
		ElseIf Combo1.Text = "Magenta" Then 
			PenColor = &HFF00FF
		ElseIf Combo1.Text = "Yellow" Then 
			PenColor = &HFFFF
		ElseIf Combo1.Text = "Cyan" Then 
			PenColor = &HFFFF00
		End If
	End Sub
	
	'set pen style
	Private Sub Combo2_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo2.SelectedIndexChanged
		If Combo2.Text = "Solid" Then
			PenStyle = 1
		ElseIf Combo2.Text = "Dash" Then 
			PenStyle = 2
		ElseIf Combo2.Text = "Dot" Then 
			PenStyle = 3
		ElseIf Combo2.Text = "DashDot" Then 
			PenStyle = 4
		ElseIf Combo2.Text = "DashDotDot" Then 
			PenStyle = 5
		ElseIf Combo2.Text = "Null" Then 
			PenStyle = 0
		End If
	End Sub
	
	'set pen width
	Private Sub Combo3_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo3.SelectedIndexChanged
		PenWidth = Val(Combo3.Text)
	End Sub
	
	'set the brush color
	Private Sub Combo4_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo4.SelectedIndexChanged
		If Combo4.Text = "White" Then
			BrushColor = &HFFFFFF
		ElseIf Combo4.Text = "Black" Then 
			BrushColor = &H0
		ElseIf Combo4.Text = "Red" Then 
			BrushColor = &HFF
		ElseIf Combo4.Text = "Blue" Then 
			BrushColor = &HFF0000
		ElseIf Combo4.Text = "Green" Then 
			BrushColor = &HFF00
		ElseIf Combo4.Text = "Magenta" Then 
			BrushColor = &HFF00FF
		ElseIf Combo4.Text = "Yellow" Then 
			BrushColor = &HFFFF
		ElseIf Combo4.Text = "Cyan" Then 
			BrushColor = &HFFFF00
		End If
	End Sub
	
	'set Brush style
	Private Sub Combo5_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo5.SelectedIndexChanged
		If Combo5.Text = "Solid" Then
			BrushStyle = 1
		ElseIf Combo5.Text = "Diagonal" Then 
			BrushStyle = 2
		ElseIf Combo5.Text = "Cross" Then 
			BrushStyle = 3
		ElseIf Combo5.Text = "Diagonal Cross" Then 
			BrushStyle = 4
		ElseIf Combo5.Text = "Horizontal" Then 
			BrushStyle = 6
		ElseIf Combo5.Text = "Vertical" Then 
			BrushStyle = 7
		ElseIf Combo5.Text = "Null" Then 
			BrushStyle = 0
		End If
	End Sub
	
	'set the backcolor
	Private Sub Combo6_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo6.SelectedIndexChanged
		If Combo6.Text = "White" Then
			IkBackColor = &HFFFFFF
		ElseIf Combo6.Text = "Black" Then 
			IkBackColor = &H0
		ElseIf Combo6.Text = "Red" Then 
			IkBackColor = &HFF
		ElseIf Combo6.Text = "Blue" Then 
			IkBackColor = &HFF0000
		ElseIf Combo6.Text = "Green" Then 
			IkBackColor = &HFF00
		ElseIf Combo6.Text = "Magenta" Then 
			IkBackColor = &HFF00FF
		ElseIf Combo6.Text = "Yellow" Then 
			IkBackColor = &HFFFF
		ElseIf Combo6.Text = "Cyan" Then 
			IkBackColor = &HFFFF00
		End If
	End Sub
	
	'Loads and displays an image in the ImageKit Control
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		'displays the 'Open File' dialog and allows you to select an image to load...
		If ImageKit1.File.OpenFileDialog = False Then
			Exit Sub
		End If
		
		'loads the image...
		ImageKit1.File.LoadFile(IMAGEKIT7Lib.LoadFileConstants.ikLoad)
		
		'check to see that the loaded image is a raster image...
		If ImageKit1.ImageKind <> IMAGEKIT7Lib.ImageKindConstants.ikRasterImage Then
			ImageKit1.FreeMemory(ImageKit1.ImageHandle)
			MsgBox("Please load a raster image")
			Exit Sub
		End If
		
		'displays the image in actual size display mode...
		ImageKit1.ScrollBar = True
		ImageKit1.Display(IMAGEKIT7Lib.DispModeConstants.ikActualSize)
		
	End Sub
	
	Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
		Dim ret As Boolean
		
		'check to see if an area is selected on the image
		If ImageKit1.RectRight = 0 Then
			MsgBox("Please use your mouse to select an area on the image.")
			Exit Sub
		End If
		
		'retrieve pen and brush properties
		ImageKit1.PrintDraw.PenColor = PenColor
		ImageKit1.PrintDraw.PenStyle = PenStyle
		ImageKit1.PrintDraw.PenWidth = PenWidth
		ImageKit1.PrintDraw.BrushColor = BrushColor
		ImageKit1.PrintDraw.BrushStyle = BrushStyle
		ImageKit1.PrintDraw.BackColor = System.Convert.ToUInt32(IkBackColor)
		
		If DrawShape = "Rectangle" Then
			ret = ImageKit1.PrintDraw.Rectangle(ImageKit1.ImageHandle, ImageKit1.RectLeft, ImageKit1.RectTop, ImageKit1.RectRight, ImageKit1.RectBottom, IMAGEKIT7Lib.OutPutDeviceModeConstants.ikMemoryHandle)
		ElseIf DrawShape = "FillRect" Then 
			ret = ImageKit1.PrintDraw.FillRect(ImageKit1.ImageHandle, ImageKit1.RectLeft, ImageKit1.RectTop, ImageKit1.RectRight, ImageKit1.RectBottom, IMAGEKIT7Lib.OutPutDeviceModeConstants.ikMemoryHandle)
		ElseIf DrawShape = "Ellipse" Then 
			ret = ImageKit1.PrintDraw.Ellipse(ImageKit1.ImageHandle, ImageKit1.RectLeft, ImageKit1.RectTop, ImageKit1.RectRight, ImageKit1.RectBottom, IMAGEKIT7Lib.OutPutDeviceModeConstants.ikMemoryHandle)
		End If
		
		'reset the selection area
		ImageKit1.RectLeft = 0
		ImageKit1.RectTop = 0
		ImageKit1.RectRight = 0
		ImageKit1.RectBottom = 0
	End Sub
	
	Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
		Me.Close()
	End Sub
	
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		'all the mouse to select an area on the image
		ImageKit1.RectDraw = True
		
		'set the default shape to rectangle
        RadioButton1.Checked = True
		
		'set the default pen color to black
		PenColor = &H0
		
		'set the default pen style to solid
		PenStyle = 1
		
		'set the default pen width to 1
		PenWidth = 1
		
		'set the default brush color to white
		BrushColor = &HFFFFFF
		
		'set the default brush style to null
		BrushStyle = 0
		
		'set the default backcolor to white
		IkBackColor = &HFFFFFF
	End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        DrawShape = "Rectangle"
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        DrawShape = "FillRect"
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        DrawShape = "Ellipse"
    End Sub
End Class