Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
        Dim c As Control
 
        For Each c In Me.Controls
            If TypeOf c Is ListBox Then
                If c.Name = "ListBox1" Then
                Else
                    Dim cc As ListBox = c
                    For i As Integer = 0 To cc.Items.Count - 1
                        If cc.Items.Item(i).ToString = _
                          ListBox1.SelectedItem.ToString Then
                            cc.Items.RemoveAt(i)
                            Exit For
                        End If
                    Next
                End If
            End If
        Next
 
    End Sub

fg viperbone