Public Class ItemTypeConverter
    Inherits TypeConverter
 
    Public Overloads Overrides Function CanConvertTo(ByVal context As _
      ITypeDescriptorContext, ByVal destType As Type) As Boolean
        If destType Is GetType(InstanceDescriptor) Then
            Return True
        End If
        Return MyBase.CanConvertTo(context, destType)
    End Function
 
 
    Public Overloads Overrides Function ConvertTo(ByVal context As _
      ITypeDescriptorContext, ByVal culture As CultureInfo, ByVal value As _
      Object, ByVal destType As Type) As Object
        If destType Is GetType(InstanceDescriptor) AndAlso (TypeOf value Is _
        clsItem) Then
            Dim col As clsItem= CType(value, clsItem)
            Dim ci As ConstructorInfo = GetType(clsItem).GetConstructor(New _
              Type() {})
            Return New InstanceDescriptor(ci, New Object() {}, False)
        End If
        Return MyBase.ConvertTo(context, culture, value, destType)
    End Function
 
End Class

Gru? eclere