' Das TypeConverter-Attribut auf die DefaultFileName-Eigenschaft angewendet.
<TypeConverter(GetType(FileNameConverter)), _
CategoryAttribute("Daten")> _
Public Property type() As String
	Get
		Return myType
	End Get
	Set(ByVal value As String)
		myType = value
	End Set
End Property
 
Public Class FileNameConverter
	Inherits StringConverter
 
	Public Overloads Overrides Function GetStandardValuesSupported( _
	    ByVal context As ITypeDescriptorContext) As Boolean
		Return True
	End Function
 
	Public Overloads Overrides Function GetStandardValues( _
	    ByVal context As ITypeDescriptorContext) As StandardValuesCollection
                'EquipmentProperty_Control.myArrListType ist eine Auflistung, 
                ' welche von der 
                'EquipmentProperty_Control Klasse zur verfügung gestellt wird. 
		Return New StandardValuesCollection(EquipmentProperty_Control.myArrListType)
	End Function
 
	Public Overloads Overrides Function GetStandardValuesExclusive( _
	    ByVal context As ITypeDescriptorContext) As Boolean
		Return False
	End Function
End Class