help about listbox!再线等！

Question

加上
List1.ListIndex = -1
   List2.SetFocus

Answer 1

Private Sub List2_Click()
    List1.Selected(List1.ListIndex) = False
End Sub

Answer 2

还是不行，我的listbox是连数组的
下标越界·
怎么弄？

Answer 3

Private Sub List1_GotFocus()
On Error Resume Next
    List2.Selected(List2.ListIndex) = False
End SubPrivate Sub List2_GotFocus()
On Error Resume Next
    List1.Selected(List1.ListIndex) = False
End Sub

Answer 4

Private Sub Form_Load()
    List1(1).AddItem 1
    List1(1).AddItem 2
    List1(1).AddItem 3
    List1(1).AddItem 4
    List1(0).AddItem 1
    List1(0).AddItem 2
    List1(0).AddItem 3
    List1(0).AddItem 4
End SubPrivate Sub List1_GotFocus(Index As Integer)
    On Error Resume Next
    If Index = 0 Then
        List1(1).Selected(List1(1).ListIndex) = False
    ElseIf Index = 1 Then
        List1(0).Selected(List1(0).ListIndex) = False
    End If
End Sub

Answer 5

Option ExplicitPrivate Sub Form_Load()
    List1(1).AddItem 1
    List1(1).AddItem 2
    List1(1).AddItem 3
    List1(1).AddItem 4
    List1(0).AddItem 1
    List1(0).AddItem 2
    List1(0).AddItem 3
    List1(0).AddItem 4
    List2.AddItem 1
    List2.AddItem 2
    List2.AddItem 3
    List2.AddItem 4
End SubPrivate Sub List1_GotFocus(Index As Integer)
    On Error Resume Next
    If Index = 0 Then
        List1(1).Selected(List1(1).ListIndex) = False
    ElseIf Index = 1 Then
        List1(0).Selected(List1(0).ListIndex) = False
    End If
    List2.Selected(List2.ListIndex) = False
End SubPrivate Sub List2_GotFocus()
    On Error Resume Next
    List1(0).Selected(List1(0).ListIndex) = False
    List1(1).Selected(List1(1).ListIndex) = False
End Sub

Answer 6

方法很不错，但是我的form上有3个可以互相切换的listbox，有没有简单的方法！？
对了，怎么给你们家分。?