Private Sub lvUsers_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next lvUsers.SelectedItem = lvUsers.HitTest(X, Y)End Sub