Dim lbl_free As New Label
                            lbl_free.Name = "lbl_free_" + Mid(sLW, 1, 1)
                            lbl_free.Top = iTop + 15
                            'lbl_free.AutoSize = True
                            lbl_free.Width = 200
                            lbl_free.Left = 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
                            Messagebox.show(Me.Name)
                            Me.Controls.Add(lbl_free)

                            Dim ctrl As Control
                            Messagebox.show(Me.Name)
                            For Each ctrl In Me.Controls
                                MessageBox.Show(ctrl.Name)
                                ctrl.Text = "irgendwas neues"
                            Next