Dim Form() As Form = Enumerable.Range(1, 5).Select( _ Function(n) New Form() With {.Text = "Form" & CStr(n)}).ToArray() Dim Int() As Integer = Form.Select(Function(f) f.Width).ToArray()