''' <summary>Zuweisung irgendeines Wertes auf _
 ''' irgendeine Eigenschaft irgendeines Controls</summary>
 ''' <param name="someone">Control (Zuweisungsziel)</param>
 ''' <param name="propertyname">Name der Eigenschaft</param>
 ''' <param name="something">zuzuweisendes Objekt</param>
 ''' <returns>true, falls möglich</returns>
 Private Function SetSomethingToSomeOnesProperty _
                  (ByVal someone As Control, _
                   ByVal propertyname As String, _
                   ByVal something As Object) As Boolean
 
    Try
       someone.GetType.GetProperty(propertyname). _
              SetValue(someone, something, Nothing)
 
       Return True
    Catch
       Return False
    End Try
End Function

Dim ret As Boolean = _
   SetSomethingToSomeOnesProperty(tbo, "BackColor", Color.Green)
 
ret = SetSomethingToSomeOnesProperty(tbo, "Text", "JapadapaDuuuuu")

Dim lbo As New ListBox
lbo.Items.Add("xxx")
lbo.Items.Add("yyy")
lbo.SelectedIndex = 0
 
ret = SetSomethingToSomeOnesProperty(lbo, "SelectedItem", "yyy")