Move checked items to top of listbox. (Resolved)

[rdcody]

Hey All,

Let's say I have a listbox (style = 1 - checkbox) with the
following code...

Private Sub Form_Load()
    List1.AddItem "apple", (0)
    List1.AddItem "orange", (1)
    List1.AddItem "banana", (2)
    List1.AddItem "grape", (3)
    List1.AddItem "lime", (4)
    List1.AddItem "lemon", (5)
End Sub

Now, let's say I select (check) three of the items in the listbox.
Can someone please tell me how I can move those three items
to the top of the list, when I click a button.

I kind of figured that I will need to loop through the list, but I
can't seem to get anything to work.

Thanks in advance for any help,
Ron

[Jmacp]

Private Sub Command1_Click()
 
Dim i        As Long
Dim myarr()  As String
Dim nmyarr() As String
 
    ReDim myarr(List1.ListCount - 1) As String
    ReDim nmyarr(List1.ListCount - 1) As String
    With List1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                myarr(i) = .List(i)
            Else
                nmyarr(i) = .List(i)
            End If
        Next i
    End With
    List1.Clear
    For i = LBound(myarr) To UBound(myarr)
        If LenB(myarr(i)) = 0 Then
           GoTo nextval
        End If
        List1.AddItem myarr(i)
       
nextval:
    Next i
    For i = LBound(nmyarr) To UBound(nmyarr)
        If LenB(nmyarr(i)) = 0 Then
           GoTo mnextval
        End If
        List1.AddItem nmyarr(i)
mnextval:
    Next i
 
End Sub

[rdcody]

Hey Jmacp,

That works great except when they move to the top, they
are unchecked. How can I keep them checked?

Thanks,
Ron

[Jmacp]

Private Sub Command1_Click()
 
Dim i        As Long
Dim myarr()  As String
Dim nmyarr() As String
 
    ReDim myarr(List1.ListCount - 1) As String
    ReDim nmyarr(List1.ListCount - 1) As String
    With List1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                myarr(i) = .List(i)
            Else
                nmyarr(i) = .List(i)
            End If
        Next i
    End With
    List1.Clear
    For i = LBound(myarr) To UBound(myarr)
        If Not LenB(myarr(i)) = 0 Then
          List1.AddItem myarr(i)
          List1.Selected(j) = True
          j = j + 1
          
        End If
    
    Next i
    For i = LBound(nmyarr) To UBound(nmyarr)
        If Not LenB(nmyarr(i)) = 0 Then
          List1.AddItem nmyarr(i)
         
        End If
    
    Next i
 
End Sub

[rdcody]

Hey Jmacp,

Oh yeah...that works great! I appreciate all your help.
Have a good one!

Thanks again,
Ron