Visual Basic.NET - listbox completo a columna de datagrid

Hola a todos,
mi intencion es pasar todos los valores de un listbox a una columna de un datagrid. exactamente quiero repetir esa accion y pasar dos listbox enteros a dos columnas de un mismo datagrid.

tengo codigo cedido por Damian que introduce un elemento seleccionado del listbox en el datagrid.

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
DataGridView1.Item(0, 0).Value = ListBox1.Text
End Sub

Muchas gracias por vuestra atencion , un saludo

hay varias cosas que se deberian saber antes, la primera es si el datagrid ya tiene datos o esta en blanco.

Para pasarlo en un datagrid blanco
Es muy facil tienes que armar un for each que reciba las listas y llene un data table que contendra las 2 columnas y la cantidad de filas de cada list. luego solo tenes que hacer databind de la tabla con el datagrid.

saludos

buenas , muchas gracias.

al final me he apañado pasandolo a un excel directamente...

Pero me apunto tu ayuda muchas gracias nuevamente.


Private Sub Command3_Click()
Dim xlApp As Excel.Application
Dim xlSh As Excel.Worksheet
Dim i As Long
Dim y As Long

Set xlApp = New Excel.Application

xlApp.Visible = True
xlApp.Workbooks.Add
Set xlSh = xlApp.Workbooks(1).Worksheets(1)

For i = 1 To List1.ListCount

xlSh.Cells(i, 1).Value = List1.List(i - 1)

Next

For y = 1 To List2.ListCount

xlSh.Cells(y, 2).Value = List2.List(y - 1)

Next

Set xlSh = Nothing
Set xlApp = Nothing

End Sub