Dim ctlBeispiel as Cotrol = Textbox1
Dim sEigenschaft as String = „Text“  'Die gesuchte Eigenschaft
ctlBeispiel.sEigenschaft = „Neuer Text“

If objControl.Tag.ToString <> objControl.Text Then

Dim ctlBeispiel as Cotrol = Combobox1
Dim sEigenschaft as String = „SelectetItem“  'Die gesuchte Eigenschaft
ctlBeispiel.sEigenschaft = „Erster Eintrag“

Dim TB As TextBox=Me.Controls("Textbox1")
TB.Text="juhu"

EALA FREYA FRESENA

 ''' <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")

If objControl.Tag.ToString <> objControl.Text Then

If TypeOf tbo.Tag Is String Then