TableLayoutPanel问题，在向其添加新项目时

Question

我正在处理一个具有返回列表功能的代码。该函数被称为：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。