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
 
 
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)
        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)} _
                )
            If Not ctor Is Nothing Then
                Return New InstanceDescriptor( _
                    ctor, _
                 New Object() {vtp.f1, vtp.f2})
            End If
        End If
        Return MyBase.ConvertTo(context, culture, value, destinationType)
    End Function
End Class