Private Function GetAllControls(ByVal panel As TableLayoutPanel, ByVal column _
  As Integer) As List(Of Control)
		Dim res As New List(Of Control)
 
		For i = 0 To panel.RowCount - 1
			res.Add(panel.GetControlFromPosition(column, i))
		Next
 
		Return res
	End Function

Ralf