' numeric Datatypes
    ''' <summary>datatypes enumeration.</summary>
    Public Enum DataTypes
        ''' <summary>Specifies no datatype set.</summary>
        None = 0
        ''' <summary>Specifies datatype short, integer, long set.</summary>
        numShortIntegerLong
        ''' <summary>Specifies datatype single, double, decimal set.</summary>
        numSingleDoubleDecimal
        ''' <summary>Specifies datatype datetime set.</summary>
        numDateTime
    End Enum

    ' standard formats of numbers
    ''' <summary>standardformats enumeration.</summary>
    Public Enum standardFormatsNumeric
        None = 0
        ''' <summary>Uses your own indiviual format.</summary>
        Custom
        ''' <summary>Displays number with no thousand separator.</summary>
        GeneralNumber
        ''' <summary>Displays at least one digit to the left and two digits 
        ' to the right of the decimal separator.</summary>
        Fixed
        ''' <summary>Displays number with thousand separator, if 
        ' appropriate; displays two digits to the right of the decimal 
        ' separator. Output is based on system locale settings.</summary>
        Currency
.....
end enum
    ' standard formats of Date/Time
    Public Enum standardFormatsDateTime
        None = 0
        ''' <summary>Uses your own indiviual format.</summary>
        Custom
        ''' <summary>Displays a date and/or time. For example, 4/3/93 05:34 
        ' PM. Date display is determined by your application's current culture _
        value.</summary>
        GeneralDate 
        ''' <summary>Displays a date according to your current culture's _
          long date format.</summary>
        LongDate
        ''' <summary>Displays a date using your current culture's short date _
          format.</summary>
        ShortDate
......
end enum

   Public Property TextDataType() As DataTypes
        Get
            Return _datatype
        End Get
        Set(ByVal value As DataTypes)
            _datatype = value
             Me.Refresh()
        End Set
    End Property
 
    Public Property TextFormat() As standardFormatsNumeric
        Get
            Return _textFormat
        End Get
        Set(ByVal value As standardFormatsNumeric)
            _textFormat = value
        End Set
    End Property

Salzburger