I resolved the selecting by right click...
But I still need help with multi select...

any way here is the code
Code:
Private Sub lbNames_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbNames.MouseDown
    If e.Button = MouseButtons.Right Then
        'IF the select item count is more than one dont select the one that was clicked.
        If lbNames.selectedItems.count <= 1 then
            Dim pt As New Point(e.x,e.y)
            lbNames.SelectedIndex = lbNames.IndexFromPoint(pt)
        end if
    End If
End Sub