VB 2005 Express false compiler error

I have a form (not that giving the error) with two constructors as follows:

Public Sub New(ByVal id As Integer, ByVal adult As Boolean)

' Constructor to Edit an existing Person with Id given

MyBase.New()

'This call is required by the Windows Form Designer.

PAddPerson = False

PName = ""

End Sub

Public Sub New(ByVal addName As String, ByVal adult As Boolean)

' Constructor to Edit an existing Person with Id given

MyBase.New()

'This call is required by the Windows Form Designer.

PAddPerson = True

End Sub

They used to work OK -- I did not change this area to cause the error to appear (as far as I can remember what I changed).

Rgds, Tony.

TonyMaynard-Smith at 2007-9-4 >

There seems to be quite a lot of it, but here it is.

'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.

Private Sub InitializeComponent()

Me.components = New System.ComponentModel.Container

Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FPerson))

Me.PHeader = New System.Windows.Forms.Panel

Me.PictureBox1 = New System.Windows.Forms.PictureBox

Me.Label2 = New System.Windows.Forms.Label

Me.Label1 = New System.Windows.Forms.Label

Me.PFooter = New System.Windows.Forms.TableLayoutPanel

Me.Button1 = New System.Windows.Forms.Button

Me.Button2 = New System.Windows.Forms.Button

Me.Button6 = New System.Windows.Forms.Button

Me.Button5 = New System.Windows.Forms.Button

Me.Button4 = New System.Windows.Forms.Button

Me.Button3 = New System.Windows.Forms.Button

Me.PTop = New System.Windows.Forms.Panel

Me.Label19 = New System.Windows.Forms.Label

Me.Label18 = New System.Windows.Forms.Label

Me.BtnAddParent = New System.Windows.Forms.Button

Me.Label17 = New System.Windows.Forms.Label

Me.Label16 = New System.Windows.Forms.Label

Me.CBName = New System.Windows.Forms.ComboBox

Me.BSPersonName = New System.Windows.Forms.BindingSource(Me.components)

Me.DSPerson = New ACE.DSClsPerson

Me.Label3 = New System.Windows.Forms.Label

Me.TBChildSurname = New System.Windows.Forms.TextBox

Me.BSChild = New System.Windows.Forms.BindingSource(Me.components)

Me.TBChildForename = New System.Windows.Forms.TextBox

Me.Label15 = New System.Windows.Forms.Label

Me.CBTitle = New System.Windows.Forms.ComboBox

Me.BSPerson = New System.Windows.Forms.BindingSource(Me.components)

Me.Label5 = New System.Windows.Forms.Label

Me.TBSurname = New System.Windows.Forms.TextBox

Me.Label4 = New System.Windows.Forms.Label

Me.TBForename = New System.Windows.Forms.TextBox

Me.LTitle = New System.Windows.Forms.Label

Me.PBottom = New System.Windows.Forms.Panel

Me.ChkBArtists = New System.Windows.Forms.CheckBox

Me.ChkBGeneral = New System.Windows.Forms.CheckBox

Me.ChkBMember = New System.Windows.Forms.CheckBox

Me.Label14 = New System.Windows.Forms.Label

Me.TBAddress1 = New System.Windows.Forms.TextBox

Me.Label13 = New System.Windows.Forms.Label

Me.Label6 = New System.Windows.Forms.Label

Me.TBEMail = New System.Windows.Forms.TextBox

Me.TBAddress2 = New System.Windows.Forms.TextBox

Me.Label12 = New System.Windows.Forms.Label

Me.Label7 = New System.Windows.Forms.Label

Me.TBPhone2 = New System.Windows.Forms.TextBox

Me.TBAddress3 = New System.Windows.Forms.TextBox

Me.Label11 = New System.Windows.Forms.Label

Me.Label8 = New System.Windows.Forms.Label

Me.TBPhone1 = New System.Windows.Forms.TextBox

Me.TBAddress4 = New System.Windows.Forms.TextBox

Me.Label10 = New System.Windows.Forms.Label

Me.Label9 = New System.Windows.Forms.Label

Me.TBPostcode = New System.Windows.Forms.TextBox

Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider(Me.components)

Me.TAPerson = New ACE.DSClsPersonTableAdapters.PersonTableAdapter

Me.TAPersonName = New ACE.DSClsPersonTableAdapters.PersonNameTableAdapter

Me.TAChild = New ACE.DSClsPersonTableAdapters.ChildTableAdapter

Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)

Me.HelpProvider1 = New System.Windows.Forms.HelpProvider

Me.PHeader.SuspendLayout()

CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()

Me.PFooter.SuspendLayout()

Me.PTop.SuspendLayout()

CType(Me.BSPersonName, System.ComponentModel.ISupportInitialize).BeginInit()

CType(Me.DSPerson, System.ComponentModel.ISupportInitialize).BeginInit()

CType(Me.BSChild, System.ComponentModel.ISupportInitialize).BeginInit()

CType(Me.BSPerson, System.ComponentModel.ISupportInitialize).BeginInit()

Me.PBottom.SuspendLayout()

CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).BeginInit()

Me.SuspendLayout()

'

'PHeader

'

Me.PHeader.BackColor = System.Drawing.Color.LightSkyBlue

Me.PHeader.Controls.Add(Me.PictureBox1)

Me.PHeader.Controls.Add(Me.Label2)

Me.PHeader.Controls.Add(Me.Label1)

Me.PHeader.Dock = System.Windows.Forms.DockStyle.Top

Me.PHeader.Location = New System.Drawing.Point(0, 0)

Me.PHeader.Name = "PHeader"

Me.PHeader.Size = New System.Drawing.Size(517, 84)

Me.PHeader.TabIndex = 1

'

'PictureBox1

'

Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)

Me.PictureBox1.Location = New System.Drawing.Point(437, 9)

Me.PictureBox1.Name = "PictureBox1"

Me.PictureBox1.Size = New System.Drawing.Size(68, 63)

Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage

Me.PictureBox1.TabIndex = 2

Me.PictureBox1.TabStop = False

'

'Label2

'

Me.Label2.AutoSize = True

Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label2.Location = New System.Drawing.Point(14, 49)

Me.Label2.Name = "Label2"

Me.Label2.Size = New System.Drawing.Size(240, 24)

Me.Label2.TabIndex = 1

Me.Label2.Text = "Add Details for New Person"

'

'Label1

'

Me.Label1.AutoSize = True

Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label1.Location = New System.Drawing.Point(12, 9)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(264, 31)

Me.Label1.TabIndex = 0

Me.Label1.Text = "PERSON DETAILS"

'

'PFooter

'

Me.PFooter.CausesValidation = False

Me.PFooter.ColumnCount = 6

Me.PFooter.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))

Me.PFooter.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))

Me.PFooter.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))

Me.PFooter.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))

Me.PFooter.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))

Me.PFooter.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))

Me.PFooter.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))

Me.PFooter.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))

Me.PFooter.Controls.Add(Me.Button1, 0, 0)

Me.PFooter.Controls.Add(Me.Button2, 1, 0)

Me.PFooter.Controls.Add(Me.Button6, 5, 0)

Me.PFooter.Controls.Add(Me.Button5, 4, 0)

Me.PFooter.Controls.Add(Me.Button4, 3, 0)

Me.PFooter.Controls.Add(Me.Button3, 2, 0)

Me.PFooter.Dock = System.Windows.Forms.DockStyle.Bottom

Me.PFooter.Location = New System.Drawing.Point(0, 458)

Me.PFooter.Name = "PFooter"

Me.PFooter.RowCount = 1

Me.PFooter.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))

Me.PFooter.Size = New System.Drawing.Size(517, 41)

Me.PFooter.TabIndex = 3

'

'Button1

'

Me.Button1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _

Or System.Windows.Forms.AnchorStyles.Left) _

Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

Me.Button1.BackColor = System.Drawing.Color.SandyBrown

Me.HelpProvider1.SetHelpKeyword(Me.Button1, "Personal Details.htm")

Me.HelpProvider1.SetHelpNavigator(Me.Button1, System.Windows.Forms.HelpNavigator.Topic)

Me.Button1.Location = New System.Drawing.Point(0, 0)

Me.Button1.Margin = New System.Windows.Forms.Padding(0)

Me.Button1.Name = "Button1"

Me.HelpProvider1.SetShowHelp(Me.Button1, True)

Me.Button1.Size = New System.Drawing.Size(86, 41)

Me.Button1.TabIndex = 0

Me.Button1.Text = "HELP"

Me.ToolTip1.SetToolTip(Me.Button1, "F1 - Help")

Me.Button1.UseVisualStyleBackColor = False

'

'Button2

'

Me.Button2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _

Or System.Windows.Forms.AnchorStyles.Left) _

Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

Me.Button2.BackColor = System.Drawing.Color.SandyBrown

Me.Button2.Location = New System.Drawing.Point(86, 0)

Me.Button2.Margin = New System.Windows.Forms.Padding(0)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(86, 41)

Me.Button2.TabIndex = 1

Me.Button2.Text = "Button2"

Me.ToolTip1.SetToolTip(Me.Button2, "F2")

Me.Button2.UseVisualStyleBackColor = False

Me.Button2.Visible = False

'

'Button6

'

Me.Button6.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _

Or System.Windows.Forms.AnchorStyles.Left) _

Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

Me.Button6.BackColor = System.Drawing.Color.SandyBrown

Me.Button6.Location = New System.Drawing.Point(430, 0)

Me.Button6.Margin = New System.Windows.Forms.Padding(0)

Me.Button6.Name = "Button6"

Me.Button6.Size = New System.Drawing.Size(87, 41)

Me.Button6.TabIndex = 5

Me.Button6.Text = "ACCEPT"

Me.ToolTip1.SetToolTip(Me.Button6, "F8 - OK / Accept")

Me.Button6.UseVisualStyleBackColor = False

'

'Button5

'

Me.Button5.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _

Or System.Windows.Forms.AnchorStyles.Left) _

Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

Me.Button5.BackColor = System.Drawing.Color.SandyBrown

Me.Button5.CausesValidation = False

Me.Button5.DialogResult = System.Windows.Forms.DialogResult.Cancel

Me.Button5.Location = New System.Drawing.Point(344, 0)

Me.Button5.Margin = New System.Windows.Forms.Padding(0)

Me.Button5.Name = "Button5"

Me.Button5.Size = New System.Drawing.Size(86, 41)

Me.Button5.TabIndex = 4

Me.Button5.Text = "CANCEL"

Me.ToolTip1.SetToolTip(Me.Button5, "F7 - Cancel")

Me.Button5.UseVisualStyleBackColor = False

'

'Button4

'

Me.Button4.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _

Or System.Windows.Forms.AnchorStyles.Left) _

Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

Me.Button4.BackColor = System.Drawing.Color.SandyBrown

Me.Button4.Location = New System.Drawing.Point(258, 0)

Me.Button4.Margin = New System.Windows.Forms.Padding(0)

Me.Button4.Name = "Button4"

Me.Button4.Size = New System.Drawing.Size(86, 41)

Me.Button4.TabIndex = 3

Me.Button4.Text = "SHOW HISTORY"

Me.ToolTip1.SetToolTip(Me.Button4, "F6")

Me.Button4.UseVisualStyleBackColor = False

'

'Button3

'

Me.Button3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _

Or System.Windows.Forms.AnchorStyles.Left) _

Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

Me.Button3.BackColor = System.Drawing.Color.SandyBrown

Me.Button3.Location = New System.Drawing.Point(172, 0)

Me.Button3.Margin = New System.Windows.Forms.Padding(0)

Me.Button3.Name = "Button3"

Me.Button3.Size = New System.Drawing.Size(86, 41)

Me.Button3.TabIndex = 2

Me.Button3.Text = "JOIN/RENEW"

Me.ToolTip1.SetToolTip(Me.Button3, "F5")

Me.Button3.UseVisualStyleBackColor = False

'

'PTop

'

Me.PTop.Controls.Add(Me.Label19)

Me.PTop.Controls.Add(Me.Label18)

Me.PTop.Controls.Add(Me.BtnAddParent)

Me.PTop.Controls.Add(Me.Label17)

Me.PTop.Controls.Add(Me.Label16)

Me.PTop.Controls.Add(Me.CBName)

Me.PTop.Controls.Add(Me.Label3)

Me.PTop.Controls.Add(Me.TBChildSurname)

Me.PTop.Controls.Add(Me.TBChildForename)

Me.PTop.Controls.Add(Me.Label15)

Me.PTop.Dock = System.Windows.Forms.DockStyle.Top

Me.PTop.Location = New System.Drawing.Point(0, 84)

Me.PTop.Name = "PTop"

Me.PTop.Size = New System.Drawing.Size(517, 88)

Me.PTop.TabIndex = 4

Me.PTop.Visible = False

'

'Label19

'

Me.Label19.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle

Me.Label19.Location = New System.Drawing.Point(0, 52)

Me.Label19.Name = "Label19"

Me.Label19.Size = New System.Drawing.Size(516, 1)

Me.Label19.TabIndex = 37

'

'Label18

'

Me.Label18.AutoSize = True

Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label18.Location = New System.Drawing.Point(20, 64)

Me.Label18.Name = "Label18"

Me.Label18.Size = New System.Drawing.Size(48, 13)

Me.Label18.TabIndex = 36

Me.Label18.Text = "Parent:"

'

'BtnAddParent

'

Me.BtnAddParent.Location = New System.Drawing.Point(412, 60)

Me.BtnAddParent.Name = "BtnAddParent"

Me.BtnAddParent.Size = New System.Drawing.Size(68, 24)

Me.BtnAddParent.TabIndex = 34

Me.BtnAddParent.Text = "Add New"

Me.ToolTip1.SetToolTip(Me.BtnAddParent, "Add New Person to become Parent.")

Me.BtnAddParent.UseVisualStyleBackColor = True

'

'Label17

'

Me.Label17.AutoSize = True

Me.Label17.Location = New System.Drawing.Point(108, 64)

Me.Label17.Name = "Label17"

Me.Label17.Size = New System.Drawing.Size(40, 13)

Me.Label17.TabIndex = 33

Me.Label17.Text = "Select:"

'

'Label16

'

Me.Label16.AutoSize = True

Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label16.Location = New System.Drawing.Point(20, 8)

Me.Label16.Name = "Label16"

Me.Label16.Size = New System.Drawing.Size(39, 13)

Me.Label16.TabIndex = 32

Me.Label16.Text = "Child:"

'

'CBName

'

Me.CBName.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend

Me.CBName.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems

Me.CBName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSPersonName, "Name", True))

Me.CBName.DataSource = Me.BSPersonName

Me.CBName.DisplayMember = "Name"

Me.CBName.FormattingEnabled = True

Me.CBName.Location = New System.Drawing.Point(152, 60)

Me.CBName.Name = "CBName"

Me.CBName.Size = New System.Drawing.Size(236, 21)

Me.CBName.TabIndex = 31

Me.CBName.ValueMember = "Id"

'

'BSPersonName

'

Me.BSPersonName.DataMember = "PersonName"

Me.BSPersonName.DataSource = Me.DSPerson

'

'DSPerson

'

Me.DSPerson.DataSetName = "DSClsPerson"

Me.DSPerson.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema

'

'Label3

'

Me.Label3.AutoSize = True

Me.Label3.Location = New System.Drawing.Point(252, 8)

Me.Label3.Name = "Label3"

Me.Label3.Size = New System.Drawing.Size(49, 13)

Me.Label3.TabIndex = 30

Me.Label3.Text = "Surname"

'

'TBChildSurname

'

Me.TBChildSurname.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSChild, "Surname", True))

Me.TBChildSurname.Location = New System.Drawing.Point(252, 24)

Me.TBChildSurname.Name = "TBChildSurname"

Me.TBChildSurname.Size = New System.Drawing.Size(136, 20)

Me.TBChildSurname.TabIndex = 29

'

'BSChild

'

Me.BSChild.DataMember = "Child"

Me.BSChild.DataSource = Me.DSPerson

'

'TBChildForename

'

Me.TBChildForename.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSChild, "Forename", True))

Me.TBChildForename.Location = New System.Drawing.Point(108, 24)

Me.TBChildForename.Name = "TBChildForename"

Me.TBChildForename.Size = New System.Drawing.Size(136, 20)

Me.TBChildForename.TabIndex = 27

'

'Label15

'

Me.Label15.AutoSize = True

Me.Label15.Location = New System.Drawing.Point(108, 8)

Me.Label15.Name = "Label15"

Me.Label15.Size = New System.Drawing.Size(54, 13)

Me.Label15.TabIndex = 28

Me.Label15.Text = "Forename"

'

'CBTitle

'

Me.CBTitle.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend

Me.CBTitle.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems

Me.CBTitle.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSPerson, "Title", True))

Me.CBTitle.FormattingEnabled = True

Me.CBTitle.Items.AddRange(New Object() {"Mr", "Mrs", "Miss", "Ms"})

Me.CBTitle.Location = New System.Drawing.Point(24, 20)

Me.CBTitle.Name = "CBTitle"

Me.CBTitle.Size = New System.Drawing.Size(76, 21)

Me.CBTitle.TabIndex = 1

'

'BSPerson

'

Me.BSPerson.DataMember = "Person"

Me.BSPerson.DataSource = Me.DSPerson

'

'Label5

'

Me.Label5.AutoSize = True

Me.Label5.Location = New System.Drawing.Point(252, 4)

Me.Label5.Name = "Label5"

Me.Label5.Size = New System.Drawing.Size(49, 13)

Me.Label5.TabIndex = 6

Me.Label5.Text = "Surname"

'

'TBSurname

'

Me.TBSurname.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSPerson, "Surname", True))

Me.TBSurname.Location = New System.Drawing.Point(252, 20)

Me.TBSurname.Name = "TBSurname"

Me.TBSurname.Size = New System.Drawing.Size(136, 20)

Me.TBSurname.TabIndex = 5

'

'Label4

'

Me.Label4.AutoSize = True

Me.Label4.Location = New System.Drawing.Point(108, 4)

Me.Label4.Name = "Label4"

Me.Label4.Size = New System.Drawing.Size(54, 13)

Me.Label4.TabIndex = 4

Me.Label4.Text = "Forename"

'

'TBForename

'

Me.TBForename.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSPerson, "Forename", True))

Me.TBForename.Location = New System.Drawing.Point(108, 20)

Me.TBForename.Name = "TBForename"

Me.TBForename.Size = New System.Drawing.Size(136, 20)

Me.TBForename.TabIndex = 3

'

'LTitle

'

Me.LTitle.AutoSize = True

Me.LTitle.Location = New System.Drawing.Point(24, 4)

Me.LTitle.Name = "LTitle"

Me.LTitle.Size = New System.Drawing.Size(27, 13)

Me.LTitle.TabIndex = 2

Me.LTitle.Text = "Title"

'

'PBottom

'

Me.PBottom.Controls.Add(Me.CBTitle)

Me.PBottom.Controls.Add(Me.Label5)

Me.PBottom.Controls.Add(Me.ChkBArtists)

Me.PBottom.Controls.Add(Me.TBSurname)

Me.PBottom.Controls.Add(Me.ChkBGeneral)

Me.PBottom.Controls.Add(Me.Label4)

Me.PBottom.Controls.Add(Me.ChkBMember)

Me.PBottom.Controls.Add(Me.TBForename)

Me.PBottom.Controls.Add(Me.Label14)

Me.PBottom.Controls.Add(Me.LTitle)

Me.PBottom.Controls.Add(Me.TBAddress1)

Me.PBottom.Controls.Add(Me.Label13)

Me.PBottom.Controls.Add(Me.Label6)

Me.PBottom.Controls.Add(Me.TBEMail)

Me.PBottom.Controls.Add(Me.TBAddress2)

Me.PBottom.Controls.Add(Me.Label12)

Me.PBottom.Controls.Add(Me.Label7)

Me.PBottom.Controls.Add(Me.TBPhone2)

Me.PBottom.Controls.Add(Me.TBAddress3)

Me.PBottom.Controls.Add(Me.Label11)

Me.PBottom.Controls.Add(Me.Label8)

Me.PBottom.Controls.Add(Me.TBPhone1)

Me.PBottom.Controls.Add(Me.TBAddress4)

Me.PBottom.Controls.Add(Me.Label10)

Me.PBottom.Controls.Add(Me.Label9)

Me.PBottom.Controls.Add(Me.TBPostcode)

Me.PBottom.Dock = System.Windows.Forms.DockStyle.Bottom

Me.PBottom.Location = New System.Drawing.Point(0, 205)

Me.PBottom.Name = "PBottom"

Me.PBottom.Size = New System.Drawing.Size(517, 253)

Me.PBottom.TabIndex = 6

'

'ChkBArtists

'

Me.ChkBArtists.AutoSize = True

Me.ChkBArtists.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.BSPerson, "ArtistsList", True))

Me.ChkBArtists.Location = New System.Drawing.Point(424, 120)

Me.ChkBArtists.Name = "ChkBArtists"

Me.ChkBArtists.Size = New System.Drawing.Size(54, 17)

Me.ChkBArtists.TabIndex = 26

Me.ChkBArtists.Text = "Artists"

Me.ChkBArtists.UseVisualStyleBackColor = True

'

'ChkBGeneral

'

Me.ChkBGeneral.AutoSize = True

Me.ChkBGeneral.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.BSPerson, "GeneralList", True))

Me.ChkBGeneral.Location = New System.Drawing.Point(424, 96)

Me.ChkBGeneral.Name = "ChkBGeneral"

Me.ChkBGeneral.Size = New System.Drawing.Size(63, 17)

Me.ChkBGeneral.TabIndex = 25

Me.ChkBGeneral.Text = "General"

Me.ChkBGeneral.UseVisualStyleBackColor = True

'

'ChkBMember

'

Me.ChkBMember.AutoSize = True

Me.ChkBMember.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.BSPerson, "MemberList", True))

Me.ChkBMember.Enabled = False

Me.ChkBMember.Location = New System.Drawing.Point(424, 72)

Me.ChkBMember.Name = "ChkBMember"

Me.ChkBMember.Size = New System.Drawing.Size(64, 17)

Me.ChkBMember.TabIndex = 24

Me.ChkBMember.Text = "Member"

Me.ChkBMember.UseVisualStyleBackColor = True

'

'Label14

'

Me.Label14.AutoSize = True

Me.Label14.Location = New System.Drawing.Point(416, 52)

Me.Label14.Name = "Label14"

Me.Label14.Size = New System.Drawing.Size(64, 13)

Me.Label14.TabIndex = 23

Me.Label14.Text = "Mailing Lists"

'

'TBAddress1

'

Me.TBAddress1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSPerson, "Address1", True))

Me.TBAddress1.Location = New System.Drawing.Point(80, 48)

Me.TBAddress1.Name = "TBAddress1"

Me.TBAddress1.Size = New System.Drawing.Size(308, 20)

Me.TBAddress1.TabIndex = 7

'

'Label13

'

Me.Label13.AutoSize = True

Me.Label13.Location = New System.Drawing.Point(20, 228)

Me.Label13.Name = "Label13"

Me.Label13.Size = New System.Drawing.Size(33, 13)

Me.Label13.TabIndex = 22

Me.Label13.Text = "EMail"

'

'Label6

'

Me.Label6.AutoSize = True

Me.Label6.Location = New System.Drawing.Point(20, 52)

Me.Label6.Name = "Label6"

Me.Label6.Size = New System.Drawing.Size(51, 13)

Me.Label6.TabIndex = 8

Me.Label6.Text = "Address1"

'

'TBEMail

'

Me.TBEMail.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSPerson, "EMail", True))

Me.TBEMail.Location = New System.Drawing.Point(80, 224)

Me.TBEMail.Name = "TBEMail"

Me.TBEMail.Size = New System.Drawing.Size(308, 20)

Me.TBEMail.TabIndex = 21

'

'TBAddress2

'

Me.TBAddress2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSPerson, "Address2", True))

Me.TBAddress2.Location = New System.Drawing.Point(80, 72)

Me.TBAddress2.Name = "TBAddress2"

Me.TBAddress2.Size = New System.Drawing.Size(308, 20)

Me.TBAddress2.TabIndex = 9

'

'Label12

'

Me.Label12.AutoSize = True

Me.Label12.Location = New System.Drawing.Point(20, 200)

Me.Label12.Name = "Label12"

Me.Label12.Size = New System.Drawing.Size(44, 13)

Me.Label12.TabIndex = 20

Me.Label12.Text = "Phone2"

'

'Label7

'

Me.Label7.AutoSize = True

Me.Label7.Location = New System.Drawing.Point(20, 76)

Me.Label7.Name = "Label7"

Me.Label7.Size = New System.Drawing.Size(51, 13)

Me.Label7.TabIndex = 10

Me.Label7.Text = "Address2"

'

'TBPhone2

'

Me.TBPhone2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSPerson, "Phone2", True))

Me.TBPhone2.Location = New System.Drawing.Point(80, 196)

Me.TBPhone2.Name = "TBPhone2"

Me.TBPhone2.Size = New System.Drawing.Size(160, 20)

Me.TBPhone2.TabIndex = 19

'

'TBAddress3

'

Me.TBAddress3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSPerson, "Address3", True))

Me.TBAddress3.Location = New System.Drawing.Point(80, 96)

Me.TBAddress3.Name = "TBAddress3"

Me.TBAddress3.Size = New System.Drawing.Size(308, 20)

Me.TBAddress3.TabIndex = 11

'

'Label11

'

Me.Label11.AutoSize = True

Me.Label11.Location = New System.Drawing.Point(20, 176)

Me.Label11.Name = "Label11"

Me.Label11.Size = New System.Drawing.Size(44, 13)

Me.Label11.TabIndex = 18

Me.Label11.Text = "Phone1"

'

'Label8

'

Me.Label8.AutoSize = True

Me.Label8.Location = New System.Drawing.Point(20, 96)

Me.Label8.Name = "Label8"

Me.Label8.Size = New System.Drawing.Size(51, 13)

Me.Label8.TabIndex = 12

Me.Label8.Text = "Address3"

'

'TBPhone1

'

Me.TBPhone1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSPerson, "Phone1", True))

Me.TBPhone1.Location = New System.Drawing.Point(80, 172)

Me.TBPhone1.Name = "TBPhone1"

Me.TBPhone1.Size = New System.Drawing.Size(160, 20)

Me.TBPhone1.TabIndex = 17

'

'TBAddress4

'

Me.TBAddress4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSPerson, "Address4", True))

Me.TBAddress4.Location = New System.Drawing.Point(80, 120)

Me.TBAddress4.Name = "TBAddress4"

Me.TBAddress4.Size = New System.Drawing.Size(308, 20)

Me.TBAddress4.TabIndex = 13

'

'Label10

'

Me.Label10.AutoSize = True

Me.Label10.Location = New System.Drawing.Point(20, 148)

Me.Label10.Name = "Label10"

Me.Label10.Size = New System.Drawing.Size(52, 13)

Me.Label10.TabIndex = 16

Me.Label10.Text = "Postcode"

'

'Label9

'

Me.Label9.AutoSize = True

Me.Label9.Location = New System.Drawing.Point(20, 124)

Me.Label9.Name = "Label9"

Me.Label9.Size = New System.Drawing.Size(51, 13)

Me.Label9.TabIndex = 14

Me.Label9.Text = "Address4"

'

'TBPostcode

'

Me.TBPostcode.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BSPerson, "PostCode", True))

Me.TBPostcode.Location = New System.Drawing.Point(80, 144)

Me.TBPostcode.Name = "TBPostcode"

Me.TBPostcode.Size = New System.Drawing.Size(96, 20)

Me.TBPostcode.TabIndex = 15

'

'ErrorProvider1

'

Me.ErrorProvider1.ContainerControl = Me

'

'TAPerson

'

Me.TAPerson.ClearBeforeFill = True

'

'TAPersonName

'

Me.TAPersonName.ClearBeforeFill = True

'

'TAChild

'

Me.TAChild.ClearBeforeFill = True

'

'HelpProvider1

'

Me.HelpProvider1.HelpNamespace = "C:\Documents and Settings\Admin\My Documents\Visual Studio 2005\Projects\ACE\ACE\" & _

"Help\ACE.chm"

'

'FPerson

'

Me.AcceptButton = Me.Button6

Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

Me.CancelButton = Me.Button5

Me.ClientSize = New System.Drawing.Size(517, 499)

Me.ControlBox = False

Me.Controls.Add(Me.PBottom)

Me.Controls.Add(Me.PTop)

Me.Controls.Add(Me.PFooter)

Me.Controls.Add(Me.PHeader)

Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog

Me.KeyPreview = True

Me.MaximizeBox = False

Me.MinimizeBox = False

Me.Name = "FPerson"

Me.ShowInTaskbar = False

Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent

Me.Text = "ACE Person Details"

Me.PHeader.ResumeLayout(False)

Me.PHeader.PerformLayout()

CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()

Me.PFooter.ResumeLayout(False)

Me.PTop.ResumeLayout(False)

Me.PTop.PerformLayout()

CType(Me.BSPersonName, System.ComponentModel.ISupportInitialize).EndInit()

CType(Me.DSPerson, System.ComponentModel.ISupportInitialize).EndInit()

CType(Me.BSChild, System.ComponentModel.ISupportInitialize).EndInit()

CType(Me.BSPerson, System.ComponentModel.ISupportInitialize).EndInit()

Me.PBottom.ResumeLayout(False)

Me.PBottom.PerformLayout()

CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).EndInit()

Me.ResumeLayout(False)

End Sub

Regards, Tony.

TonyMaynard-Smith at 2007-9-4 >

Ken,

I have tried your suggestion, closing the form with the error, then all forms, while rebuilding but it does not help.

I have in the meantime gone back to a backup from some days ago, re-implemented the changes I had done since then, and the error has gone away. I am still holding my breath.

Rgds, Tony.

TonyMaynard-Smith at 2007-9-4 >

Did anyone here actually get the problem solved? I am having the same problem as well.

ChinwaKneeHo at 2007-9-4 >