Status List - Vista Style

Imports System.ComponentModel.Design.Serialization
Imports System.ComponentModel

Public Class StatusItemConverter
	 Inherits TypeConverter

#Region " Methods "

	 ' Get a boolean type determining whether or not the control can be converted to a status item
	 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

	 ' Convert the specified control to a status item
	 Public Overloads Overrides Function ConvertTo(ByVal context As ITypeDescriptorContext, ByVal culture As System.Globalization.CultureInfo, ByVal value As Object, ByVal destType As Type) As Object
		  If destType Is GetType(InstanceDescriptor) Then
				Dim ci As System.Reflection.ConstructorInfo = GetType(StatusItem).GetConstructor(System.Type.EmptyTypes)

				Return New InstanceDescriptor(ci, Nothing, False)
		  End If

		  Return MyBase.ConvertTo(context, culture, value, destType)
	 End Function

#End Region

End Class