Imports System

    Console.WriteLine("Hello World")

    Dim p as Person = new Person()

    p.FIRSTNAME = new SQLString("Test", 1)

    p.FIRSTNAME.Value = "Test Value"

    Console.WriteLine("Person Value: {0}", p.FIRSTNAME.Value)

    Public Class Person

        Public Property FIRSTNAME AS SQLString

    End Class

    Public Class SQLString

        Public Property SQL_Column As String

        Public Property Limit As Integer

        Public Property Value As String

        Public Sub New(SQLcolumn As String, limit_ As Integer)

            SQL_Column = SQLcolumn

            Limit = limit_

        End Sub

        Public ReadOnly Property SQL_value() As String

            Get

                Return ""

            End Get

        End Property

    End Class