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")
        [u]Return VTProperty.Parse(sval)
    End Function
 
    Public Overloads Overrides Function CanConvertTo(ByVal context As _
      ITypeDescriptorContext, ByVal destinationType As Type) As Boolean
        [u]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
    [u]If destinationType Is GetType(InstanceDescriptor) AndAlso _
      value.GetType() Is GetType(VTProperty) Then
            [u]Dim vtp As VTProperty = value
            [u]Dim ctor As ConstructorInfo = GetType( _
              VTProperty).GetConstructor(New Type() {GetType(Integer), GetType( _
              Integer)})
            If Not ctor Is Nothing Then
                [u]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

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)