button click to move selected multi-column list box items to new list box

[kranic3]

As the title says im struggling to get this to function properly. all I can manage to do its put all items into 1 single column of a list box, spaced out.

Private Sub CommandButton9_Click()
     
    Dim i As Long
    Dim Duplicate As Boolean
     
    If Me.genbuildhistorylist.Text <> "" Then
        For i = 1 To Me.genemaillist.ListCount
            If Me.genemaillist.List(i - 1) = Me.genbuildhistorylist.Column(0, _
            Me.genbuildhistorylist.ListIndex) & vbTab & _
            Me.genbuildhistorylist.Column(1, Me.genbuildhistorylist.ListIndex) Then
                 'Duplicate Entry
                Duplicate = True
                Exit For
            End If
        Next i
        If Duplicate = False Then
            Me.genemaillist.AddItem Me.genbuildhistorylist.Column(0, _
            Me.genbuildhistorylist.ListIndex) & vbTab & _
            Me.genbuildhistorylist.Column(1, Me.genbuildhistorylist.ListIndex)
        End If
    End If
End Sub

how would i go about altering this to rather than tabbing, to select the next column of the list box?

[Norie]

How are you populating the original multi-column listbox?

By the way, where in the posted code are you checking what's been selected in the first listbox?

[Tinbendr]

Maybe...

Private Sub CommandButton9_Click()
     
Dim i As Long
 
    For i = 0 To Me.genemaillist.ListCount - 1
        If Me.genemaillist.Selected(i) Then
            Me.genbuildhistorylist.AddItem Me.genemaillist
        End If
    Next i
End Sub

[kranic3]

Maybe...

Private Sub CommandButton9_Click()
     
Dim i As Long
 
    For i = 0 To Me.genemaillist.ListCount - 1
        If Me.genemaillist.Selected(i) Then
            Me.genbuildhistorylist.AddItem Me.genemaillist
        End If
    Next i
End Sub

Thats it Tinbendr. This was very close to what I was looking for. few small changes and its working. Thanks!