[alma2]

كود :

If DataGridView1.RowCount < 31 Then DataGridView1.RowCount = 31
        For i = 0 To 31 - 1
            DataGridView1.Item(0, i).Value = i + 1
            DataGridView1.Item(1, i).Value = ListBox1.Items(i)
        Next