Контекстное меню для DataGridView, как лучше сделать?

    Private Sub КопироватьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КопироватьToolStripMenuItem.Click
        Dim b = DataGridView1.SelectedCells.Count
        Dim c = b - 1
        Dim a As String
        a = ""
        Dim h(c) As Object
        Dim g As Integer
        If DataGridView1.SelectedCells.Count = 1 Then
            Clipboard.SetText(DataGridView1.SelectedCells(0).Value)
        ElseIf DataGridView1.SelectedCells.Count > 1 Then
            If DataGridView1.SelectedCells(0).RowIndex > DataGridView1.SelectedCells(1).RowIndex Then
                For g = c To 0 Step -1
                    h(g) = DataGridView1.SelectedCells(g).Value
                Next
                For g = c To 0 Step -1
                    a = a & h(g) & vbCrLf
                Next
                Clipboard.SetText(a)
            Else
                For g = 0 To c
                    h(g) = DataGridView1.SelectedCells(g).Value
                Next
                For g = 0 To c
                    a = a & h(g) & vbCrLf
                Next
                Clipboard.SetText(a)
            End If
        End If
    End Sub

'…
DataGridView1.SelectionMode = DataGridViewSelectionMode.CellSelect
DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText
'…
Private Sub Copy_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    If Me.DataGridView1.GetCellCount(DataGridViewElementStates.Selected) > 0 Then
        Try
            Clipboard.SetDataObject(Me.DataGridView1.GetClipboardContent())
        Catch ex As System.Exception
            MsgBox(ex.Message)
        End Try
    End If
End Sub