Private Function GetAllControls(Of T As Control)(ByVal container As _
  TableLayoutPanel, ByVal column As Integer) As List(Of T)
		Dim result As New List(Of T)
 
		For i = 0 To container.RowCount - 1
			Dim c As Control = container.GetControlFromPosition(column, i)
			If TypeOf (c) Is T Then
				result.Add(CType(c, T))
			End If
		Next
 
		Return result
	End Function

For Each c In GetAllControls(Of Label)(TableLayoutPanel1, 1)
    c.Text = "Ein Label! " & Date.Now.ToLongTimeString()
Next

Ralf