Dim tCtrlType As Type = cCtrl.GetType()   '>> Typ des Steuerelementes
Dim piPropertyInfo As PropertyInfo       '>> Eigenschaftsinformation 
' eines Objektes
 
For Each piPropertyInfo In tCtrlType.GetProperties()
 
   If tCtrlType.name.ToString() = "ComboBox" And piPropertyInfo.Name = Items _
     Then
 
      Dim collection As IEnumerable = TryCast(piPropertyInfo.GetValue(cCtrl, _
        Nothing), IEnumerable)
 
      For Each oItem As Object In collection
         oItem = "test"
      Next
 
   End If
 
Next

oItem = was immer

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

tCtrlType.name.ToString() = "ComboBox"

If tCtrlType Is GetType(ComboBox) Then

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

tCtrlType.name.ToString() = "ComboBox"

tCtrlType.name.ToString() = reader.GetString(......)