You will need to create a string array. Here is some old code that I have.
LbName = “”
TheRow = -1
Dim arr() As String
For i As Integer = 0 To Me.ColumnCount - 1
arr.Append(Me.Cell(row, i))
Next
drag.Text = Join(arr, “|”)
LbName = “LbParts”
TheRow = row
Return True
and then slpit the array in the dropobject event.
Dim theStr(-1) as string
theStr = obj.Text.split(“|”)
Me.AddRow theStr
LbDropped(10, theStr(0))
LbDropped is a method to delete the row from the original list box.