Private Sub DataGridView1_CellMouseClick(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) _
        Handles DataGridView1.CellMouseClick

        If (e.Button = Windows.Forms.MouseButtons.Right) Then
            DataGridView1.CurrentRow.Selected = False
            DataGridView1.Rows(e.RowIndex).Selected = True

            DataGridView1.CurrentCell = DataGridView1.Rows(e.RowIndex).Cells(0)

            ContextMenuStrip1.Show(DataGridView1, e.Location)
        End If

    End Sub


    Private Sub DetailToolStripMenuItem_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) _
        Handles DetailToolStripMenuItem.Click

        HandleRowSelection("CSR220")
    End Sub