Dim MaxItm = SrcList.Aggregate(Function(itm1, itm2) If(itm1.A > itm2.A, itm1, itm2))

こんなんとか。