Private Sub List2_GotFocus()
  If List1.ListIndex >= 0 Then List1.Selected(List1.ListIndex) = False
End Sub
 
Private Sub List1_GotFocus()
  If List2.ListIndex >= 0 Then List2.Selected(List2.ListIndex) = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de