Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim sLW As String = "1234"
 
        Dim lbl_free As New Label
        lbl_free.Name = "lbl_free_" + Mid(sLW, 1, 1)
        lbl_free.Top = Me.ClientSize.Height - 50
        lbl_free.AutoSize = True
        lbl_free.Width = 200
        lbl_free.Left = 100 'iMax - lbl_free.Width + iBorder
        lbl_free.Height = 20
        lbl_free.TextAlign = ContentAlignment.MiddleRight
        lbl_free.UseMnemonic = True
        lbl_free.Text = "Available: " '+ iFree.ToString + " GB"
        'lbl_free.Visible = True
        Me.Controls.Add(lbl_free)
 
        Timer1.Enabled = True
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim ctrl As Control
        For Each ctrl In Me.Controls
            Debug.WriteLine(ctrl.Name)
            ctrl.Text = "irgendwas neues"
        Next
    End Sub

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