Winform中Grid跨行复制一列

Private Sub DataCopyToGrid()
        '判断剪切板中是否存在内容
        If Clipboard.ContainsText Then
            Dim str = Clipboard.GetText()
            Dim array = Strings.Split(str, vbCrLf)
            Dim selerow As Integer = Me.Grid.CurrentCell.RowIndex
            Dim selecom As Integer = Me.Grid.CurrentCell.ColumnIndex

            If array IsNot Nothing And selerow >= 0 And selecom = 4 Then
                Dim j = 0
                For i = selerow To Me.Grid.Rows.Count - 1
                    If j > array.Length - 1 Then
                        Exit For
                    End If

                    If Me.Grid.Rows(i).Cells(selecom).ReadOnly = False Then
                        Me.Grid.Rows(i).Cells(selecom).Value = array(j)
                        j = j + 1
                    End If
                Next
            End If
        End If
    End Sub

 在Keydown事件中捕获Ctrl+V按键（e.Control And e.KeyCode = Keys.V）