listbox med multiselect - flyt fra en lb til en anden

det er simpelt
lav' en commandbuttom og kald den for cmdAdd
ind sæt denne kode

Private Sub cmdAdd_Click()
Dim i, j As Integer
Dim found As Boolean
    For i = 0 To IbMulige.ListCount - 1
        If IbMulige.Selected(i) Then
            found = False
            If lbDeltagere.ListCount > 0 Then
                For j = 0 To lbDeltagere.ListCount - 1
                    If lbDeltagere.List(j) = IbMulige.List(i) Then found = True
                Next j
                    If Not found Then
                      lbDeltagere.AddItem IbMulige.List(i)
                    Else
                        MsgBox "already in the list!"
                    End If
            Else
                lbDeltagere.AddItem IbMulige.List(i)
            End If
        End If
    Next i
End Sub

du skal lige sæt din listbox til multiselect = 1

Det kan godt være, at jeg ikke helt har forstået det, men så vidt jeg kan se, sørger din kode "først og fremmest" for, at den samme deltager ikke bliver tilføjet flere gange, korrekt? Det ordner jeg med RemoveItem. Men det er måske det, der er galt? Går der kludder i det, når jeg fjerner navne fra listen undervejs?

Hvordan ser din form ud

Jeg har to forms ved siden af hinanden - en med mulige, en der viser, hvad der er valgt. Men jeg har løst det:
 
  For i = (lbMulige.ListCount - 1) To 0 step -1
        If lbMulige.Selected(i) = True Then
            lbDeltagere.AddItem lbMulige.List(i)
            lbMulige.RemoveItem (lbMulige.ListIndex)
        End If
  Next i

Problemet var, at der gik kludder i nummereringen, når items blev fjernet undervejs...

Du får pointene, fordi du fik mig på sporet :)

nej, ikke to forms, to listboxes selvfølgelig.

For i = (lbMulige.ListCount - 1) To 0 step -1
        If lbMulige.Selected(i) = True Then
            lbDeltagere.AddItem lbMulige.List(i)
            lbMulige.RemoveItem (i)
        End If
  Next i
... for at være helt præcis - hvis nogen vil kopiere. :)