Private Sub DataGrid1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGrid1.CellClick
If Me.DataGrid1.Rows.Count > 0 Then
Me.DataGrid2.Item(0, 0).Value = Me.DataGrid1.CurrentCell.Value
End If
End Sub