Custom Configuration Sections in .NET 2.0

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " C�digo generado por el Dise�ador de Windows Forms "

    Public Sub New()
        MyBase.New()

        'El Dise�ador de Windows Forms requiere esta llamada.
        InitializeComponent()

        'Agregar cualquier inicializaci�n despu�s de la llamada a InitializeComponent()

    End Sub

    'Form reemplaza a Dispose para limpiar la lista de componentes.
    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

    'Requerido por el Dise�ador de Windows Forms
    Private components As System.ComponentModel.IContainer

    'NOTA: el Dise�ador de Windows Forms requiere el siguiente procedimiento
    'Puede modificarse utilizando el Dise�ador de Windows Forms. 
    'No lo modifique con el editor de c�digo.
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents txtOneProperty As System.Windows.Forms.TextBox
    Friend WithEvents txtNumericValue As System.Windows.Forms.TextBox
    Friend WithEvents txtSubElement As System.Windows.Forms.TextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
      Me.Label1 = New System.Windows.Forms.Label
      Me.txtOneProperty = New System.Windows.Forms.TextBox
      Me.txtNumericValue = New System.Windows.Forms.TextBox
      Me.Label2 = New System.Windows.Forms.Label
      Me.txtSubElement = New System.Windows.Forms.TextBox
      Me.Label3 = New System.Windows.Forms.Label
      Me.SuspendLayout()
      '
      'Label1
      '
      Me.Label1.Location = New System.Drawing.Point(24, 8)
      Me.Label1.Name = "Label1"
      Me.Label1.Size = New System.Drawing.Size(88, 16)
      Me.Label1.TabIndex = 0
      Me.Label1.Text = "OneProperty"
      Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
      '
      'txtOneProperty
      '
      Me.txtOneProperty.Location = New System.Drawing.Point(120, 8)
      Me.txtOneProperty.Name = "txtOneProperty"
      Me.txtOneProperty.Size = New System.Drawing.Size(192, 20)
      Me.txtOneProperty.TabIndex = 1
      Me.txtOneProperty.Text = "txtOneProperty"
      '
      'txtNumericValue
      '
      Me.txtNumericValue.Location = New System.Drawing.Point(120, 40)
      Me.txtNumericValue.Name = "txtNumericValue"
      Me.txtNumericValue.Size = New System.Drawing.Size(192, 20)
      Me.txtNumericValue.TabIndex = 3
      Me.txtNumericValue.Text = "txtNumericValue"
      '
      'Label2
      '
      Me.Label2.Location = New System.Drawing.Point(16, 40)
      Me.Label2.Name = "Label2"
      Me.Label2.Size = New System.Drawing.Size(96, 16)
      Me.Label2.TabIndex = 2
      Me.Label2.Text = "NumericValue"
      Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
      '
      'txtSubElement
      '
      Me.txtSubElement.Location = New System.Drawing.Point(120, 72)
      Me.txtSubElement.Name = "txtSubElement"
      Me.txtSubElement.Size = New System.Drawing.Size(192, 20)
      Me.txtSubElement.TabIndex = 5
      Me.txtSubElement.Text = "txtSubElementProp"
      '
      'Label3
      '
      Me.Label3.Location = New System.Drawing.Point(8, 72)
      Me.Label3.Name = "Label3"
      Me.Label3.Size = New System.Drawing.Size(104, 16)
      Me.Label3.TabIndex = 4
      Me.Label3.Text = "Sub-Element Prop"
      Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
      '
      'Form1
      '
      Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
      Me.ClientSize = New System.Drawing.Size(328, 109)
      Me.Controls.Add(Me.txtSubElement)
      Me.Controls.Add(Me.Label3)
      Me.Controls.Add(Me.txtNumericValue)
      Me.Controls.Add(Me.Label2)
      Me.Controls.Add(Me.txtOneProperty)
      Me.Controls.Add(Me.Label1)
      Me.MaximizeBox = False
      Me.Name = "Form1"
      Me.Text = "Configuration in dotNet 1.1 Sample"
      Me.ResumeLayout(False)

   End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With ConfigurationSample.Current
         txtOneProperty.Text = .OneProperty
            txtNumericValue.Text = .OneNumericValue.ToString
            txtSubElement.Text = .OneElement.AnotherProperty
        End With
    End Sub
End Class