Vb.net TableLayoutPanel添加新项目时出现问题

我正在编写一个代码，它有一个返回列表的函数。函数名为：MedTuboFunc

单击按钮时，我希望列表的值添加到TableLayoutPanel

我现在使用的代码如下：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 

    Dim lbl As New Label
    Dim a As New List(Of Decimal)
    a = MedTuboFunc()
    For i = 0 To a.Count - 1
        lbl.Text = a(i)
        MessageBox.Show(lbl.Text)
        TableLayoutPanel1.Controls.Add(lbl, 0, i)
    Next
End Sub

MessageBox用于查看我是否正确检索列表的值。问题是程序将列表的第一个值添加到TableLayoutPanel中的位置0,0，但是当它添加第二个值时，第一个值就消失了，依此类推。 最后，我只得到列表中的最后一个值，而其他值为空

提前谢谢你的帮助。

---

我正在使用Visual Studio 2015。语言：Visual Basic。

您只需创建一个标签，只需更改文本即可。将

Dim lbl作为新标签移动到循环中

，这样您就可以根据需要创建尽可能多的新标签了非常感谢！！！！这解决了问题！有没有办法将您的评论标记为“答案”？您只需创建一个标签，然后更改文本即可。将

Dim lbl作为新标签移动到循环中

，这样您就可以根据需要创建尽可能多的新标签了非常感谢！！！！这解决了问题！有没有办法将你的评论标记为“答案”？。