Imports System
 
Imports System.ComponentModel
Imports System.Windows.Forms.Design
Imports System.ComponentModel.Design
Imports System.Drawing.Design
 
' <summary>
' Simple Structure with various Properties
' <summary>
<TypeConverter(GetType(VTPropertyTypeConverter))> _
Public Structure VTProperty
 
    Private _f1 As Integer
    Private _f2 As Integer
    Private _img As Image
    Private _imgIdx As Integer
    Private _imgLst As ImageList
 
    Public Sub New(ByVal f1 As Integer, ByVal f2 As Integer, ByVal img As _
      Image, ByVal imgIdx As Integer)
        _f1 = f1
        _f2 = f2
        _img = img
        _imgIdx = imgIdx
    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 Property Img() As Image
        Get
            Return _img
        End Get
        Set(ByVal Value As Image)
            _img = Value
        End Set
    End Property
 
    <Category("Appearance"), _
    Description("Image to display"), _
    DefaultValue(-1), _
    TypeConverter(GetType(ImageIndexConverter)), _
    Editor("System.Windows.Forms.Design.ImageIndexEditor", GetType( _
    UITypeEditor))> _
    Public Property ImageIndex() As Integer
        Get
            Return _imgIdx
        End Get
        Set(ByVal Value As Integer)
            _imgIdx = Value
        End Set
    End Property
 
    Public Property ImageList() As ImageList
        Get
            Return _imgLst
        End Get
        Set(ByVal Value As ImageList)
            _imgLst = Value
        End Set
    End Property
 
    Public Overrides Function ToString() As String
        Return _f1.ToString() + ", " + _f2.ToString() + ", " + _imgIdx.ToString( _
          )
    End Function
 
    Public Shared Function Parse(ByVal sval As String) As VTProperty
 
        Dim svals() As String = sval.Split(","c)
 
        If svals.Length <> 3 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())
            Dim ii As Integer = Integer.Parse(svals(2).Trim())
            Return New VTProperty(f1, f2, Nothing, ii)
        Catch
            Throw New NotSupportedException("Invalid format")
        End Try
 
    End Function
End Structure