Visual Basic

MsgBox("Half of 11 is " & Half_Is(11))

Private Function Half_Is(ByVal MyNumber As Double) As Double
        Return MyNumber / 2
End Function

<br />
...<br />
Dim dt as New DataTable<br />
dt.Columns.Add("Name")<br />
dt.Columns.Add("Age")<br />
<br />
With dgv1<br />
   For Each dr As DataGridViewRow In .Rows<br />
      Dim obj() As Object = {dr.Cells("Name").Value,dr.Cells("Age").Value}<br />
      dt.Rows.Add(obj)<br />
   Next<br />
End With<br />
<br />
frm2.DGV2.DataSource = dt<br />
<br />

Public Class Form1<br />
<br />
...<br />
<br />
Private Sub Button1_Click(...)...<br />
<br />
    Dim dt As New DataTable<br />
    dt.Columns.Add("Name")<br />
    dt.Columns.Add("Age")<br />
<br />
    With DataGridView1<br />
        For Each dr As DataGridViewRow In .Rows<br />
            Dim obj() As Object = {dr.Cells("Name").Value, dr.Cells("Age").Value} ' EDIT Dim obj() As Object = ...<br />
            dt.Rows.Add(obj)<br />
        Next<br />
    End With<br />
<br />
    Dim frm As New Form2<br />
    frm.DataGridView2.DataSource = dt<br />
<br />
    frm.Show()<br />
<br />
End Sub<br />
<br />
...<br />
<br />
End Class

Public Class Form1

    Dim dt As New DataTable


    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        With dt
            .Columns.Add("Name")
            .Columns.Add("Age")
            .Columns.Add("Salary")
            .Columns.Add("Date")
        End With

        Dim obj() As Object = {"David", 23, 12000, New Date(2009, 9, 20, 0, 0, 0)}
        dt.Rows.Add(obj)
        Dim obj2() As Object = {"Frank", 33, 22000, New Date(2009, 5, 3, 0, 0, 0)}
        dt.Rows.Add(obj2)

        DataGridView1.DataSource = dt

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim frm As New Form2

        Dim dt As New DataTable
        dt.Columns.Add("Name")
        dt.Columns.Add("Age")

        For Each dr As DataGridViewRow In DataGridView1.Rows
            Dim obj() As Object = {dr.Cells("Name").Value, dr.Cells("Age").Value}
            dt.Rows.Add(obj)
        Next


        frm.DataGridView1.DataSource = dt

        frm.Show()

    End Sub
End Class

For Each dr As DataRow in myDataSet.Table("client_details").Rows
  Dim name As String = dr("Name").ToString
  Dim age As String = dr("Age").ToString

  Try
    con.Open
    cmd = New SqlCommand("INSERT final_client(Name, Age) " & _
                          "VALUES('" & name & "','" & age "')",con)
    cmd.ExecuteNonQuery
    con.Close()
  Catch ex As Exception
 ...
  End Catch

Next