vb6如何实现2个list互斥啊

简单的2个list，希望点其中一个list，另外一个list的焦点去掉，而且选项背景色也去掉。
不知道有什么办法吗？难道需要自己去写吗？


Private Sub Form_Load()
List1.AddItem "china"
List1.AddItem "holland"
List1.AddItem "japan"

List2.AddItem "china"
List2.AddItem "holland"
List2.AddItem "japan"
End Sub

Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)
End Sub

Private Sub List2_Click()
Text1.Text = List2.List(List2.ListIndex)

End Sub

小白

你点一个时，另一个的焦点自然没了。
Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)
For idx = 0 To List2.ListCount - 1
  If List2.Selected(idx) Then List2.Selected(idx) = False
Next
End Sub
list2里改list1

这样就可以了，lostfocus时自动取消焦点就是了
losftfocus,失去焦点时 发生
VB code

Private Sub Form_Load()
List1.AddItem "china"
List1.AddItem "holland"
List1.AddItem "japan"

List2.AddItem "china"
List2.AddItem "holland"
List2.AddItem "japan"
End Sub

Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)
End Sub

Private Sub List2_Click()
Text1.Text = List2.List(List2.ListIndex)

End Sub

Private Sub List2_LostFocus()
List2.ListIndex = -1
End Sub
Private Sub List1_LostFocus()
List1.ListIndex = -1
End Sub

这句还能写的简单点：
Text1.Text = List1.List(List1.ListIndex)
》》
Text1.Text = List1
VB code

Private Sub Form_Load()
List1.AddItem "china"
List1.AddItem "holland"
List1.AddItem "japan"

List2.AddItem "china"
List2.AddItem "holland"
List2.AddItem "japan"
End Sub

Private Sub List1_Click()
Text1.Text = List1
End Sub

Private Sub List2_Click()
Text1.Text = List2

End Sub

Private Sub List2_LostFocus()
List2.ListIndex = -1
End Sub
Private Sub List1_LostFocus()
List1.ListIndex = -1
End Sub

您说的这个方法 其中一个可以
如果2个都写了的话 不行 


Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)

If List2.ListIndex <> -1 Then
List2.Selected(List2.ListIndex) = False
End If

End Sub

Private Sub List2_Click()
Text1.Text = List2.List(List2.ListIndex)

If List1.ListIndex <> -1 Then
List1.Selected(List1.ListIndex) = False
End If


End Sub