Imports System.ComponentModel
 
Public Class UserControl1
 
   Public Sub New()
      ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
      InitializeComponent()
 
      ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
      pValue = New MyValue
   End Sub
 
   Private pValue As MyValue
   Public Property Value() As MyValue
      Get
         Return pValue
      End Get
      Set(ByVal value As MyValue)
         pValue = value
      End Set
   End Property
 
End Class
 
<TypeConverterAttribute(GetType(ExpandableObjectConverter))> _
Public Class MyValue
   Private pMySting As String
   Private pMyInteger As Integer
 
   Public Sub New()
      pMySting = "Leer"
      pMyInteger = 1
   End Sub
 
   Public Property MyString() As String
      Get
         Return pMySting
      End Get
      Set(ByVal value As String)
         pMySting = value
      End Set
   End Property
 
   Public Property MyInteger() As Integer
      Get
         Return pMyInteger
      End Get
      Set(ByVal value As Integer)
         pMyInteger = value
      End Set
   End Property
 
   Public Overrides Function ToString() As String
      Return "[" & Me.MyString & ": " & Me.MyInteger & "]"
   End Function
End Class

Public Class MyValueTypeConverter
   Inherits ExpandableObjectConverter
 
   Public Overrides Function CanConvertFrom(ByVal context As _
     System.ComponentModel.ITypeDescriptorContext, ByVal sourceType As _
     System.Type) As Boolean
      If sourceType Is GetType(String) Then
         Return True
      Else
         Return MyBase.CanConvertFrom(context, sourceType)
      End If
   End Function
 
   Public Overrides Function ConvertFrom(ByVal context As _
     System.ComponentModel.ITypeDescriptorContext, ByVal culture As _
     System.Globalization.CultureInfo, ByVal value As Object) As Object
      If Regex.Match(value.ToString, "\[.*:[0-9]*\]") IsNot Nothing Then
         Dim myv As New MyValue
         Dim r As String
 
         r = Regex.Match(value.ToString, "\[.*:").Value
         If r.Length > 2 Then myv.MyString = r.Substring(1, r.Length - 2)
 
         r = Regex.Match(value.ToString, ": [0-9]*\]").Value
         If r.Length > 2 Then Integer.TryParse(r.Substring(1, r.Length - 2), _
           myv.MyInteger)
 
         Return myv
      Else
         Return MyBase.ConvertFrom(context, culture, value)
      End If
   End Function
End Class