'Current Column Values
Private Sub btnCurrentColumnValues_Click(sender As Object, e As EventArgs) Handles btnCurrentColumnValues.Click
Dim column_index As Integer = PersonDataGridView.CurrentCell.ColumnIndex
Dim msg As String = String.Join(vbCrLf, PersonDataGridView.Rows.Cast(Of DataGridViewRow).Select(Function(r) r.Cells(column_index).Value))
MsgBox(msg, vbOKOnly, "Column Values")
End Sub
'Current Column Values (2)
Private Sub CurrentColumsValue2_Click(sender As Object, e As EventArgs) Handles CurrentColumsValue2.Click
Dim column_index As Integer = PersonDataGridView.CurrentCell.ColumnIndex
Dim values As Object() = PersonDataGridView.Rows.Cast(Of DataGridViewRow).Select(Function(r) r.Cells(column_index).Value).ToArray
Dim msg As String = String.Empty
For i = 0 To values.Count - 1
msg &= values.GetValue(i).ToString & vbCrLf
Next
MsgBox(msg)
End Sub