Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles ListBox1.Click
		ListBox2.ClearSelected()
	End Sub
 
	Private Sub ListBox2_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles ListBox2.Click
		ListBox1.ClearSelected()
	End Sub

Star

Murphy:
 1.) Nichts ist so leicht wie es aussieht!
 2.) Alles dauert l?nger als du denkst!
 3.) Alles, was schief gehen kann, geht schief!