[سعود]

PHP كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 4
            d.Rows.Add(i, "Name :_" & i, i + 10)
        Next
    End Sub
    Private Sub btnget_Click(sender As Object, e As EventArgs) Handles btnget.Click
        TextBox1.Clear()
        For i As Integer = 0 To d.Rows.Count - IIf(d.AllowUserToAddRows, 2, 1)
            TextBox1.AppendText("Number: " & d.Rows(i).Cells(0).Value & vbTab & "Name: " & d.Rows(i).Cells(1).Value & vbTab & "Age: " & d.Rows(i).Cells(2).Value & vbTab & vbNewLine)
        Next
    End Sub