ListBox 中如何自动选中某一特定值的项，并使它移至最上面！

Question

触发某一事件时，ListBox 中如何自动选中某一特定值的项，并使它移至最上面！

Answer 1

我写了个过程，使用很简单，只要传递List名称就可以Sub SetSelectedListItemToTop(ByVal vbList As ListBox)
    On Error GoTo z
    Dim ret As String
    If vbList.ListCount > 0 And vbList.ListIndex > 0 Then
       ret = vbList.List(0)
       vbList.List(0) = vbList.List(vbList.ListIndex)
       vbList.List(vbList.ListIndex) = ret
    End If
    Exit Sub
z:
End Sub用法：SetSelectedListItemToTop List1调用后，如果List1中有被选择的项会移到List1最上面了