Dim c_Textbox As New TextBox
                With c_Textbox
                    .Text = xlZelle.Offset(intZeilen, 1).Value
                    .Visible = True
                    .Size = New Size(280, 22)
                    .Location = New Point(Me.m_Location.X, Me.m_Location.Y)
                    m_Location.Y += c_Textbox.Height + 5
                End With
                Me.pnlMonthCD.Controls.Add(c_Textbox)
 
 Dim cb_payed As New CheckBox
                With cb_payed
                    .Visible = True
                    .Checked = False
                    .Location = New Point(Me.payed_Location.X, _
                      Me.payed_Location.Y)
                    payed_Location.Y += cb_payed.Height + 5
                End With
                Me.pnlMonthCD.Controls.Add(cb_payed)