' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
' THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
' PARTICULAR PURPOSE.
'
' Copyright (c) Microsoft Corporation. All rights reserved.
'
'
'  File: AutoClaims.vb
'  AutoClaims Sample Application
'
'  This sample program simulates an auto insurance claim
'  form. It uses the InkEdit control to allow the user to 
'  enter vehicle information and the InkPicture control to
'  illustrate car damage.  The car damage diagram allows
'  the user to select from multiple ink layers;  each layer
'  has its own color and visibility setting.  
'
'  The features used are: InkEdit, InkPicture, providing
'  multiple layers of ink within a control.
'
'--------------------------------------------------------------------------

Imports System
Imports System.Windows.Forms
Imports System.Drawing

' The Ink namespace, which contains the Tablet PC Platform API
Imports Microsoft.Ink

Public Class AutoClaims
    Inherits Form

    ' InkLayer represents a given ink layer, which has a
    ' color and visibility setting associated with it.
    Public Class InkLayer

        ' Declare the ink, color, and visibility for this layer
        Public ActiveInk As Ink
        Public ActiveColor As Color
        Public Hidden As Boolean

        ''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Constructor for InkLayer
        ' 
        ' Parameters:
        ' Ink ink           :       The ink
        ' Color color       :       The color of the layer
        ' Boolean hidden    :       True if the layer is hidden
        ''''''''''''''''''''''''''''''''''''''''''''''''''
        Public Sub New(ByVal ink As Ink, ByVal color As Color, ByVal hidden As Boolean)
            ActiveInk = ink
            ActiveColor = color
            hidden = hidden
        End Sub

    End Class

    ' Declare the array of ink layers used the vehicle illustration.
    Dim inkLayers(3) As InkLayer

    ' Declare an empty ink object (used when we don't want to draw
    ' any ink).
    Dim emptyInk As Ink

    ' Declare a value to hold the index of selected ink
    Dim selectedIndex As Integer

    ' Declare a value to hold whether the selected ink is hidden
    Dim selectedHidden As Boolean

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    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

    '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 InkEdModel As Microsoft.Ink.InkEdit
    Friend WithEvents InkEdMake As Microsoft.Ink.InkEdit
    Friend WithEvents InkEdYear As Microsoft.Ink.InkEdit
    Friend WithEvents inkEdName As Microsoft.Ink.InkEdit
    Friend WithEvents inkEdPolicyNumber As Microsoft.Ink.InkEdit
    Friend WithEvents inkPictVehicle As Microsoft.Ink.InkPicture
    Friend WithEvents lblVehicleDamage As System.Windows.Forms.Label
    Friend WithEvents lblVehicleDescription As System.Windows.Forms.Label
    Friend WithEvents lblModel As System.Windows.Forms.Label
    Friend WithEvents lblYear As System.Windows.Forms.Label
    Friend WithEvents lblMake As System.Windows.Forms.Label
    Friend WithEvents lblPolicyNumber As System.Windows.Forms.Label
    Friend WithEvents lblInsuredName As System.Windows.Forms.Label
    Friend WithEvents chHideLayer As System.Windows.Forms.CheckBox
    Friend WithEvents lstAnnotationLayer As System.Windows.Forms.ListBox
    Friend WithEvents pictHorzontalBar2 As System.Windows.Forms.PictureBox
    Friend WithEvents pictVehicleBox As System.Windows.Forms.PictureBox
    Friend WithEvents pictHorzontalBar3 As System.Windows.Forms.PictureBox
    Friend WithEvents pictPolicyBox As System.Windows.Forms.PictureBox
    Friend WithEvents pictHorzontalBar1 As System.Windows.Forms.PictureBox
    Friend WithEvents lblInstructions As System.Windows.Forms.Label
    Friend WithEvents lblTitle As System.Windows.Forms.Label
    Friend WithEvents pictCheckmarks As System.Windows.Forms.PictureBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(AutoClaims))
        Me.InkEdModel = New Microsoft.Ink.InkEdit()
        Me.InkEdMake = New Microsoft.Ink.InkEdit()
        Me.InkEdYear = New Microsoft.Ink.InkEdit()
        Me.inkEdName = New Microsoft.Ink.InkEdit()
        Me.inkEdPolicyNumber = New Microsoft.Ink.InkEdit()
        Me.inkPictVehicle = New Microsoft.Ink.InkPicture()
        Me.lblVehicleDamage = New System.Windows.Forms.Label()
        Me.lblVehicleDescription = New System.Windows.Forms.Label()
        Me.lblModel = New System.Windows.Forms.Label()
        Me.lblYear = New System.Windows.Forms.Label()
        Me.lblMake = New System.Windows.Forms.Label()
        Me.lblPolicyNumber = New System.Windows.Forms.Label()
        Me.lblInsuredName = New System.Windows.Forms.Label()
        Me.chHideLayer = New System.Windows.Forms.CheckBox()
        Me.lstAnnotationLayer = New System.Windows.Forms.ListBox()
        Me.pictHorzontalBar2 = New System.Windows.Forms.PictureBox()
        Me.pictVehicleBox = New System.Windows.Forms.PictureBox()
        Me.pictHorzontalBar3 = New System.Windows.Forms.PictureBox()
        Me.pictPolicyBox = New System.Windows.Forms.PictureBox()
        Me.pictHorzontalBar1 = New System.Windows.Forms.PictureBox()
        Me.lblInstructions = New System.Windows.Forms.Label()
        Me.lblTitle = New System.Windows.Forms.Label()
        Me.pictCheckmarks = New System.Windows.Forms.PictureBox()
        Me.SuspendLayout()
        '
        'InkEdModel
        '
        Me.InkEdModel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.InkEdModel.Cursor = System.Windows.Forms.Cursors.Default
        Me.InkEdModel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
        Me.InkEdModel.Location = New System.Drawing.Point(216, 363)
        Me.InkEdModel.Name = "InkEdModel"
        Me.InkEdModel.Size = New System.Drawing.Size(320, 32)
        Me.InkEdModel.TabIndex = 66
        Me.InkEdModel.Text = ""
        Me.InkEdModel.UseMouseForInput = True
        '
        'InkEdMake
        '
        Me.InkEdMake.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.InkEdMake.Cursor = System.Windows.Forms.Cursors.Default
        Me.InkEdMake.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
        Me.InkEdMake.Location = New System.Drawing.Point(216, 323)
        Me.InkEdMake.Name = "InkEdMake"
        Me.InkEdMake.Size = New System.Drawing.Size(320, 32)
        Me.InkEdMake.TabIndex = 65
        Me.InkEdMake.Text = ""
        Me.InkEdMake.UseMouseForInput = True
        '
        'InkEdYear
        '
        Me.InkEdYear.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.InkEdYear.Cursor = System.Windows.Forms.Cursors.Default
        Me.InkEdYear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
        Me.InkEdYear.Location = New System.Drawing.Point(216, 283)
        Me.InkEdYear.Name = "InkEdYear"
        Me.InkEdYear.Size = New System.Drawing.Size(320, 32)
        Me.InkEdYear.TabIndex = 64
        Me.InkEdYear.Text = ""
        Me.InkEdYear.UseMouseForInput = True
        '
        'inkEdName
        '
        Me.inkEdName.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.inkEdName.Cursor = System.Windows.Forms.Cursors.Default
        Me.inkEdName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
        Me.inkEdName.Location = New System.Drawing.Point(216, 179)
        Me.inkEdName.Name = "inkEdName"
        Me.inkEdName.Size = New System.Drawing.Size(320, 32)
        Me.inkEdName.TabIndex = 62
        Me.inkEdName.Text = ""
        Me.inkEdName.UseMouseForInput = True
        '
        'inkEdPolicyNumber
        '
        Me.inkEdPolicyNumber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.inkEdPolicyNumber.Cursor = System.Windows.Forms.Cursors.Default
        Me.inkEdPolicyNumber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
        Me.inkEdPolicyNumber.Location = New System.Drawing.Point(216, 131)
        Me.inkEdPolicyNumber.Name = "inkEdPolicyNumber"
        Me.inkEdPolicyNumber.Size = New System.Drawing.Size(320, 32)
        Me.inkEdPolicyNumber.TabIndex = 61
        Me.inkEdPolicyNumber.Text = ""
        Me.inkEdPolicyNumber.UseMouseForInput = True
        '
        'inkPictVehicle
        '
        Me.inkPictVehicle.AutoRedraw = False
        Me.inkPictVehicle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.inkPictVehicle.Cursor = System.Windows.Forms.Cursors.Default
        Me.inkPictVehicle.Image = CType(resources.GetObject("inkPictVehicle.Image"), System.Drawing.Bitmap)
        Me.inkPictVehicle.InkEnabled = False
        Me.inkPictVehicle.Location = New System.Drawing.Point(24, 435)
        Me.inkPictVehicle.MarginX = -1
        Me.inkPictVehicle.MarginY = -1
        Me.inkPictVehicle.Name = "inkPictVehicle"
        Me.inkPictVehicle.Size = New System.Drawing.Size(392, 256)
        Me.inkPictVehicle.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.inkPictVehicle.TabIndex = 60
        Me.inkPictVehicle.TabStop = False
        '
        'lblVehicleDamage
        '
        Me.lblVehicleDamage.AutoSize = True
        Me.lblVehicleDamage.BackColor = System.Drawing.Color.White
        Me.lblVehicleDamage.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblVehicleDamage.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.lblVehicleDamage.Location = New System.Drawing.Point(24, 411)
        Me.lblVehicleDamage.Name = "lblVehicleDamage"
        Me.lblVehicleDamage.Size = New System.Drawing.Size(256, 20)
        Me.lblVehicleDamage.TabIndex = 57
        Me.lblVehicleDamage.Text = "Description of vehicle damage"
        Me.lblVehicleDamage.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblVehicleDescription
        '
        Me.lblVehicleDescription.AutoSize = True
        Me.lblVehicleDescription.BackColor = System.Drawing.Color.White
        Me.lblVehicleDescription.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblVehicleDescription.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.lblVehicleDescription.Location = New System.Drawing.Point(24, 243)
        Me.lblVehicleDescription.Name = "lblVehicleDescription"
        Me.lblVehicleDescription.Size = New System.Drawing.Size(386, 20)
        Me.lblVehicleDescription.TabIndex = 55
        Me.lblVehicleDescription.Text = "Enter the involved vehicle listed on the policy "
        Me.lblVehicleDescription.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblModel
        '
        Me.lblModel.AutoSize = True
        Me.lblModel.BackColor = System.Drawing.Color.Gainsboro
        Me.lblModel.Font = New System.Drawing.Font("Tahoma", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblModel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.lblModel.Location = New System.Drawing.Point(125, 363)
        Me.lblModel.Name = "lblModel"
        Me.lblModel.Size = New System.Drawing.Size(73, 23)
        Me.lblModel.TabIndex = 54
        Me.lblModel.Text = "Model:"
        Me.lblModel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblYear
        '
        Me.lblYear.AutoSize = True
        Me.lblYear.BackColor = System.Drawing.Color.Gainsboro
        Me.lblYear.Font = New System.Drawing.Font("Tahoma", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblYear.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.lblYear.Location = New System.Drawing.Point(63, 283)
        Me.lblYear.Name = "lblYear"
        Me.lblYear.Size = New System.Drawing.Size(135, 23)
        Me.lblYear.TabIndex = 53
        Me.lblYear.Text = "Year (YYYY):"
        Me.lblYear.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblMake
        '
        Me.lblMake.AutoSize = True
        Me.lblMake.BackColor = System.Drawing.Color.Gainsboro
        Me.lblMake.Font = New System.Drawing.Font("Tahoma", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblMake.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.lblMake.Location = New System.Drawing.Point(131, 323)
        Me.lblMake.Name = "lblMake"
        Me.lblMake.Size = New System.Drawing.Size(67, 23)
        Me.lblMake.TabIndex = 52
        Me.lblMake.Text = "Make:"
        Me.lblMake.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblPolicyNumber
        '
        Me.lblPolicyNumber.AutoSize = True
        Me.lblPolicyNumber.BackColor = System.Drawing.Color.Gainsboro
        Me.lblPolicyNumber.Font = New System.Drawing.Font("Tahoma", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblPolicyNumber.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.lblPolicyNumber.Location = New System.Drawing.Point(44, 139)
        Me.lblPolicyNumber.Name = "lblPolicyNumber"
        Me.lblPolicyNumber.Size = New System.Drawing.Size(157, 23)
        Me.lblPolicyNumber.TabIndex = 49
        Me.lblPolicyNumber.Text = "Policy Number:"
        Me.lblPolicyNumber.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblInsuredName
        '
        Me.lblInsuredName.AutoSize = True
        Me.lblInsuredName.BackColor = System.Drawing.Color.Gainsboro
        Me.lblInsuredName.Font = New System.Drawing.Font("Tahoma", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblInsuredName.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.lblInsuredName.Location = New System.Drawing.Point(48, 179)
        Me.lblInsuredName.Name = "lblInsuredName"
        Me.lblInsuredName.Size = New System.Drawing.Size(154, 23)
        Me.lblInsuredName.TabIndex = 48
        Me.lblInsuredName.Text = "Insured Name:"
        Me.lblInsuredName.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'chHideLayer
        '
        Me.chHideLayer.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.chHideLayer.Location = New System.Drawing.Point(432, 579)
        Me.chHideLayer.Name = "chHideLayer"
        Me.chHideLayer.TabIndex = 59
        Me.chHideLayer.Text = "Hide Layer"
        '
        'lstAnnotationLayer
        '
        Me.lstAnnotationLayer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lstAnnotationLayer.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lstAnnotationLayer.ItemHeight = 19
        Me.lstAnnotationLayer.Items.AddRange(New Object() {"Body", "Windows", "Tires", "Headlights"})
        Me.lstAnnotationLayer.Location = New System.Drawing.Point(432, 435)
        Me.lstAnnotationLayer.Name = "lstAnnotationLayer"
        Me.lstAnnotationLayer.Size = New System.Drawing.Size(104, 135)
        Me.lstAnnotationLayer.TabIndex = 58
        '
        'pictHorzontalBar2
        '
        Me.pictHorzontalBar2.BackColor = System.Drawing.SystemColors.AppWorkspace
        Me.pictHorzontalBar2.Location = New System.Drawing.Point(24, 227)
        Me.pictHorzontalBar2.Name = "pictHorzontalBar2"
        Me.pictHorzontalBar2.Size = New System.Drawing.Size(536, 2)
        Me.pictHorzontalBar2.TabIndex = 56
        Me.pictHorzontalBar2.TabStop = False
        '
        'pictVehicleBox
        '
        Me.pictVehicleBox.BackColor = System.Drawing.Color.Gainsboro
        Me.pictVehicleBox.Location = New System.Drawing.Point(24, 275)
        Me.pictVehicleBox.Name = "pictVehicleBox"
        Me.pictVehicleBox.Size = New System.Drawing.Size(184, 120)
        Me.pictVehicleBox.TabIndex = 51
        Me.pictVehicleBox.TabStop = False
        '
        'pictHorzontalBar3
        '
        Me.pictHorzontalBar3.BackColor = System.Drawing.SystemColors.AppWorkspace
        Me.pictHorzontalBar3.Location = New System.Drawing.Point(24, 403)
        Me.pictHorzontalBar3.Name = "pictHorzontalBar3"
        Me.pictHorzontalBar3.Size = New System.Drawing.Size(536, 2)
        Me.pictHorzontalBar3.TabIndex = 50
        Me.pictHorzontalBar3.TabStop = False
        '
        'pictPolicyBox
        '
        Me.pictPolicyBox.BackColor = System.Drawing.Color.Gainsboro
        Me.pictPolicyBox.Location = New System.Drawing.Point(24, 131)
        Me.pictPolicyBox.Name = "pictPolicyBox"
        Me.pictPolicyBox.Size = New System.Drawing.Size(184, 80)
        Me.pictPolicyBox.TabIndex = 47
        Me.pictPolicyBox.TabStop = False
        '
        'pictHorzontalBar1
        '
        Me.pictHorzontalBar1.BackColor = System.Drawing.SystemColors.AppWorkspace
        Me.pictHorzontalBar1.Location = New System.Drawing.Point(24, 115)
        Me.pictHorzontalBar1.Name = "pictHorzontalBar1"
        Me.pictHorzontalBar1.Size = New System.Drawing.Size(536, 2)
        Me.pictHorzontalBar1.TabIndex = 46
        Me.pictHorzontalBar1.TabStop = False
        '
        'lblInstructions
        '
        Me.lblInstructions.Font = New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblInstructions.Location = New System.Drawing.Point(88, 51)
        Me.lblInstructions.Name = "lblInstructions"
        Me.lblInstructions.Size = New System.Drawing.Size(456, 56)
        Me.lblInstructions.TabIndex = 45
        Me.lblInstructions.Text = "Enter the required information for the policy applicable to the auto claim you ar" & _
        "e submitting. Enter the vehicle exactly as it appears on the policy or insurance" & _
        " vehicled."
        '
        'lblTitle
        '
        Me.lblTitle.Font = New System.Drawing.Font("Tahoma", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblTitle.Location = New System.Drawing.Point(24, 11)
        Me.lblTitle.Name = "lblTitle"
        Me.lblTitle.Size = New System.Drawing.Size(288, 32)
        Me.lblTitle.TabIndex = 44
        Me.lblTitle.Text = "Auto Claim"
        '
        'pictCheckmarks
        '
        Me.pictCheckmarks.BackgroundImage = CType(resources.GetObject("pictCheckmarks.BackgroundImage"), System.Drawing.Bitmap)
        Me.pictCheckmarks.Location = New System.Drawing.Point(24, 43)
        Me.pictCheckmarks.Name = "pictCheckmarks"
        Me.pictCheckmarks.Size = New System.Drawing.Size(40, 72)
        Me.pictCheckmarks.TabIndex = 63
        Me.pictCheckmarks.TabStop = False
        '
        'AutoClaims
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.Color.White
        Me.ClientSize = New System.Drawing.Size(584, 702)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.InkEdModel, Me.InkEdMake, Me.InkEdYear, Me.inkEdName, Me.inkEdPolicyNumber, Me.inkPictVehicle, Me.lblVehicleDamage, Me.lblVehicleDescription, Me.lblModel, Me.lblYear, Me.lblMake, Me.lblPolicyNumber, Me.lblInsuredName, Me.chHideLayer, Me.lstAnnotationLayer, Me.pictHorzontalBar2, Me.pictVehicleBox, Me.pictHorzontalBar3, Me.pictPolicyBox, Me.pictHorzontalBar1, Me.lblInstructions, Me.lblTitle, Me.pictCheckmarks})
        Me.Name = "AutoClaims"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "AutoClaims"
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region " Standard Template Code "
    Public Shared Sub Main()
        Application.Run(New AutoClaims())
    End Sub
#End Region

    ''''''''''''''''''''''''''''''''''''''''''''''''''
    ' Event Handler for frmAutoClaim Load Event 
    '
    ' This method occurs when the form is loaded.  It
    ' configures the insertion mode and the ink used by
    ' this application.
    ''''''''''''''''''''''''''''''''''''''''''''''''''
    Private Sub AutoClaims_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' Initialize the empty ink
        emptyInk = New Ink()

        ' Initialize the four different layers of ink on the vehicle diagram:  
        ' vehicle body, windows, tires, and headlights.
        inkLayers(0) = New InkLayer(New Ink(), Color.Red, False)
        inkLayers(1) = New InkLayer(New Ink(), Color.Violet, False)
        inkLayers(2) = New InkLayer(New Ink(), Color.LightGreen, False)
        inkLayers(3) = New InkLayer(New Ink(), Color.Aqua, False)

        ' No ink is selected initially
        selectedIndex = -1

        ' By default, select the first ink layer
        lstAnnotationLayer.SelectedIndex = 0
        inkPictVehicle.DefaultDrawingAttributes.Color = inkLayers(lstAnnotationLayer.SelectedIndex).ActiveColor

        ' Currently there are recognizers that do not support regular expression
        ' input scopes, thus raising exceptions.  This try catch handler copes with
        ' these differences in the recognizer. For policy numbers, nothing is being
        ' done in reaction to this exception though since there is no factoid that 
        ' serves the same purpose.
        Try
            inkEdPolicyNumber.Factoid = "(0|1|2|3|4|5|6|7|8|9)(0|1|2|3|4|5|6|7|8|9)(0|1|2|3|4|5|6|7|8|9)-(0|1|2|3|4|5|6|7|" & _
                                                   "8|9)(0|1|2|3|4|5|6|7|8|9)(0|1|2|3|4|5|6|7|8|9)(0|1|2|3|4|5|6|7|8|9)"
        Catch
            ' Do nothing
        End Try

        ' There are also recognizers that do not support common input scopes as well.
        ' This try catch handler copes with these differences in the recognizer. For 
        ' year, the NUMBER factoid is being set in reaction to this exception.
        Try
            InkEdYear.Factoid = "(!IS_DATE_YEAR)"
        Catch
            InkEdYear.Factoid = Factoid.Number
        End Try

    End Sub

    ''''''''''''''''''''''''''''''''''''''''''''''''''
    ' Event Handler for lstAnnotationLayer SelectedIndexChanged Event
    ''''''''''''''''''''''''''''''''''''''''''''''''''
    Private Sub lstAnnotationLayer_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstAnnotationLayer.SelectedIndexChanged

        ' Provided that the new selected index value is different than
        ' the previous value...
        If (Not (lstAnnotationLayer.SelectedIndex = selectedIndex)) Then
            If (Not inkPictVehicle.CollectingInk) Then

                ' Set the ink and visiblity of the current ink layer
                inkPictVehicle.DefaultDrawingAttributes.Color = inkLayers(lstAnnotationLayer.SelectedIndex).ActiveColor
                chHideLayer.Checked = inkLayers(lstAnnotationLayer.SelectedIndex).Hidden

                ' Set the active ink object to the selected ink
                ' Note that if the current layer is not visible, empty
                ' ink is used to prevent flicker.
                inkPictVehicle.InkEnabled = False
                If (chHideLayer.Checked) Then
                    inkPictVehicle.Ink = emptyInk
                Else
                    inkPictVehicle.Ink = inkLayers(lstAnnotationLayer.SelectedIndex).ActiveInk
                End If
                inkPictVehicle.InkEnabled = Not chHideLayer.Checked

                ' Update the previous selected ink value to the current
                selectedIndex = lstAnnotationLayer.SelectedIndex

                Me.Refresh()
            Else
                ' If ink collection is enabled, the active ink cannot be changed
                ' and it is necessary to restore the selection to its previous value.
                lstAnnotationLayer.SelectedIndex = selectedIndex
                MessageBox.Show("Cannot change active ink while collecting ink.")
            End If
        End If
    End Sub

    ''''''''''''''''''''''''''''''''''''''''''''''''''
    ' Event Handler for chHideLayer CheckChanged Event
    ''''''''''''''''''''''''''''''''''''''''''''''''''
    Private Sub chHideLayer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chHideLayer.CheckedChanged

        ' Provided that the new checked hidden value is different than
        ' the previous value...
        If (Not (chHideLayer.Checked = selectedHidden)) Then
            If (Not (inkPictVehicle.CollectingInk)) Then

                ' Update the array indicating the visibility of each ink layer
                inkLayers(lstAnnotationLayer.SelectedIndex).Hidden = chHideLayer.Checked

                ' Set the active ink object to the selected ink
                ' Note that if the current layer is not visible, empty
                ' ink is used to prevent flicker.
                inkPictVehicle.InkEnabled = False
                If (chHideLayer.Checked) Then
                    inkPictVehicle.Ink = emptyInk
                Else
                    inkPictVehicle.Ink = inkLayers(lstAnnotationLayer.SelectedIndex).ActiveInk
                End If

                ' Update the previous checkbox value to the current
                selectedHidden = chHideLayer.Checked

                ' If the layer is marked hidden, disable ink collection
                inkPictVehicle.InkEnabled = Not chHideLayer.Checked

                Me.Refresh()
            Else
                ' If ink collection is enabled, the active ink cannot be changed
                ' and it is necessary to restore the checkbox to its previous value.
                chHideLayer.Checked = selectedHidden
                MessageBox.Show("Cannot change visiblity while collecting ink.")
            End If
        End If
    End Sub

    ''''''''''''''''''''''''''''''''''''''''''''''''''
    ' Event Handler for inkPictVehicle Paint Event
    ''''''''''''''''''''''''''''''''''''''''''''''''''
    Private Sub inkPictVehicle_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles inkPictVehicle.Paint

        Dim layer As InkLayer

        ' Cycle through each ink layer.  If it is visible, paint it.
        ' Note that it is necessary to customize the paint
        ' behavior, since we want to hide/show different ink layers.
        For Each layer In inkLayers
            If (Not layer.Hidden) Then
                inkPictVehicle.Renderer.Draw(e.Graphics, layer.ActiveInk.Strokes)
            End If
        Next
    End Sub

End Class