Dim list As List(Of (V1 As Integer, V2 As String)) = Enumerable.Range(65, 10).Select(Function(x) ValueTuple.Create(x, New String(Chr(x), 3))).ToList DataGridView1.DataSource = list