OK I have two list boxes which are populated and each have the same amount of entries.

What I need to konw is how to either detect which index is selected (on both sides) and merge the data copy it to the clipboard. I am using this code to keep the slected Index's the same:
Code:
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    List2.ListIndex = List1.ListIndex
End Sub
Private Sub List2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    List1.ListIndex = List2.ListIndex
End Sub
or use arrays somehow and merge the data then copy it to the clipboard.. On row at a time with a msgbox in between...

figured this out to do one side but not the other
Code:
Dim strArray1() As String
    For X = 0 To List1.ListCount - 1
        ReDim Preserve strArray1(X)
        strArray1 = List1.List(X)
    Next
    For Each Var In strArray1
        Clipboard.Clear
        Clipboard.SetText Var
        MsgBox "Please paste that info now before you click OK"
    Next

Zevlag