Private Sub DataGridView1_CellMouseMove(sender As Object, e As _
      System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles _
      DataGridView1.CellMouseMove
 
        MouseOverRow = e.RowIndex
 
    End Sub
 
 
    Private Sub DataGridView1_MouseUp(sender As Object, e As _
      System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseUp
 
        On Error Resume Next
 
        If e.Button = Windows.Forms.MouseButtons.Right Then
            DataGridView1.Rows(MouseOverRow).Selected = True
            ContextMenuStrip1.Show(Me, New Point(DataGridView1.Left + _
              e.Location.X + 40, DataGridView1.Top + e.Location.Y - 20))
        End If
 
    End Sub