Dim lbl_green As New Label
                    lbl_green.Name = "lbl_green_" + iCount.ToString
                    lbl_green.BackColor = Color.Green
                    lbl_green.BorderStyle = BorderStyle.FixedSingle
                    lbl_green.Left = iBorder + iLeftSize - 1
                    lbl_green.Top = iTop + 35
                    lbl_green.Width = iRightSize
                    lbl_green.Height = 20
                    lbl_green.Visible = True
                    Me.Controls.Add(lbl_green)

            For Each control In Me.Controls
                    Me.Controls.Remove(control)
            Next