Private Sub LsvUsuarios_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LsvUsuarios.MouseDown
Dim p As Point
Dim lvi As ListViewItem
Me.ContextMenuStrip1.Enabled = True
p = New Point(e.X, e.Y)
lvi = New ListViewItem()
If e.Button = MouseButtons.Right Then
lvi = Me.LsvUsuarios.GetItemAt(p.X, p.Y)
If lvi = Nothing Or Me.LsvUsuarios.SelectedItems.Count = 1 Then
Me.ContextMenuStrip1.Visible = False
End If
End If