Imports System
 
Imports System.Windows.Forms
Imports System.ComponentModel
Imports System.Windows.Forms.Design
Imports System.ComponentModel.Design
Imports System.ComponentModel.Design.Serialization
Imports System.Reflection
 
' <summary>
' TypeConverter Class for VTProperty.
' <summary>
Public Class VTPropertyTypeConverter
    Inherits ExpandableObjectConverter
 
    Public Sub New()
        MyBase.New()
    End Sub
 
    Public Overloads Overrides Function CanConvertFrom(ByVal context As _
      ITypeDescriptorContext, ByVal sourceType As Type) As Boolean
        If sourceType Is GetType(String) Then Return True
        Return MyBase.CanConvertFrom(context, sourceType)
    End Function
 
    Public Overloads Overrides Function ConvertFrom(ByVal context As _
      ITypeDescriptorContext, ByVal culture As _
      System.Globalization.CultureInfo, ByVal value As Object) As Object
        If value Is Nothing Then Return Nothing
        Dim sval As String = value
        If sval Is Nothing Then Throw New NotSupportedException("Unsuported" & _
          "type")
        Return VTProperty.Parse(sval)
    End Function
 
    Public Overloads Overrides Function CanConvertTo(ByVal context As _
      ITypeDescriptorContext, ByVal destinationType As Type) As Boolean
        If destinationType Is GetType(InstanceDescriptor) Then Return True
        Return MyBase.CanConvertTo(context, destinationType)
    End Function
 
    Public Overloads Overrides Function ConvertTo( _
    ByVal context As ITypeDescriptorContext, _
    ByVal culture As System.Globalization.CultureInfo, _
    ByVal value As Object, _
    ByVal destinationType As Type) As Object
        If destinationType Is GetType(InstanceDescriptor) AndAlso value.GetType( _
          ) Is GetType(VTProperty) Then
            Dim vtp As VTProperty = value
            Dim ctor As ConstructorInfo = GetType(VTProperty).GetConstructor( _
                    New Type() {GetType(Integer), GetType(Integer), GetType( _
                    Image), GetType(Integer)} _
                )
            If Not ctor Is Nothing Then
                Return New InstanceDescriptor( _
                    ctor, _
                    New Object() {vtp.f1, vtp.f2, vtp.Img, vtp.ImageIndex} _
                )
            End If
        End If
        Return MyBase.ConvertTo(context, culture, value, destinationType)
    End Function
End Class