how to send all listbox values to the grid view

Hi,
 
1) Create a data table with a column.
2) Copy all the list box values to data table.
3) Bind that data table into the Grid View.
 
I have added code in button click event
 

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dt As New DataTable
        dt.Columns.Add("Values")
 
        Dim iPos As Integer
        For iPos = 0 To ListBox1.Items.Count - 1
            Dim dr As DataRow = dt.NewRow
            dr(0) = ListBox1.Items(iPos).ToString()
            dt.Rows.Add(dr)
        Next
        DataGridView1.DataSource = dt
    End Sub
 

 
Hope this helps.
 
Best Regards
Muthuraja