Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim ctrls(3) As Control ' Anzahl Komponenten - 1
        ctrls(0) = CheckBox1 ' Alle Controls einzelnd hinzufügen
        ctrls(1) = Button1
        ctrls(2) = ComboBox1
        ctrls(3) = Label1
        For i As Integer = 0 To UBound(ctrls) ' Den maximalwert ermitteln
            ctrls(i).Text = "..." ' Hier dein Text
        Next
    End Sub