Imports System
 
Imports System.ComponentModel
Imports System.Windows.Forms.Design
Imports System.ComponentModel.Design
 
    ' <summary>
    ' Summary description for VTProperty.
    ' <'summary>
<TypeConverter(GetType(VTPropertyTypeConverter))> _
   Public Structure VTProperty
 
    Private _f1 As Integer
    Private _f2 As Integer
 
    Public Sub New(ByVal f1 As Integer, ByVal f2 As Integer)
        _f1 = f1
        _f2 = f2
    End Sub
 
    <DefaultValue(0)> _
    Public Property f1() As Integer
        Get
            Return _f1
        End Get
        Set(ByVal Value As Integer)
            _f1 = Value
        End Set
    End Property
 
    <DefaultValue(0)> _
    Public Property f2() As Integer
        Get
            Return _f2
        End Get
        Set(ByVal Value As Integer)
            _f2 = Value
        End Set
    End Property
 
    Public Overrides Function ToString() As String
 
        Return _f1.ToString() + ", " + _f2.ToString()
    End Function
 
    Public Shared Function Parse(ByVal sval As String) As VTProperty
 
        Dim svals() As String = sval.Split(","c)
 
        If svals.Length <> 2 Then
            Throw New NotSupportedException("Invalid format")
        End If
 
        Try
            Dim f1 As Integer = Integer.Parse(svals(0).Trim())
            Dim f2 As Integer = Integer.Parse(svals(1).Trim())
            Return New VTProperty(f1, f2)
        Catch
            Throw New NotSupportedException("Invalid format")
        End Try
 
    End Function
End Structure