Private numbers As New List(Of Decimal) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each item As Control In Me.Controls If TypeOf item Is NumericUpDown Then Dim numGet As NumericUpDown = DirectCast(item, NumericUpDown) numbers.Add(numGet.Value) End If Next End Sub
Dim numbers = Me.Controls.OfType(Of NumericUpDown)().Select(Function(nud) nud.Value).ToArray()