[RESOLVED] listbox add items

[matrik02]

I have listbox2 and listbox 3. All this is the multiselect.

After select the items in the listbox2, It will added the items into listbox3. So How I can remove the items selected in the listbox2 after added the items in the listbox3?

  
   For i = 0 To List2.ListCount - 1 'select sheet
    If List2.Selected(i) = True Then
    List3.AddItem (List2.List(i))
    
    End If
    Next

[Hack]

Private Sub Command1_Click()
Dim i As Long
For i = List2.ListCount - 1 To 0 Step -1 ' counts list entries
    If List2.Selected(i) = True Then ' if selected then
        List3.AddItem List2.List(i) ' add to other list
        List2.RemoveItem i ' optional remove
    End If
Next
End Sub

[matrik02]

Thank you. Hack.

I try to pop up the messagebox if not items is selected in the list2, but it not pop up the messagebox. Why?

If List2.ListIndex = -1 Then
MsgBox "Please choose items in the list2"
Exit Sub
End If

[Hack]

You need to loop through the listbox but as soon as you find one thing selected, you can get out.

Dim blnHasSelected As Boolean
Dim i As Long

        For i = 0 To List.ListCount - 1
           If List1.Selected(i) = True Then
              blnHasSelected = True
              Exit For
           End If
        Next
    If blnHasSelected = False Then
       MsgBox "You have not selected anything.", vbOKOnly + vbInformation, "Select Something"
    End If

[matrik02]

Thank you so much