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