Private Sub DataGrid1_ActiveRowChange(ByVal sender As Object, _
ByVal e As RowEventArgs) Handles DataGrid1.ActiveRowChange
With DataGrid1.DisplayLayout
    If Not .SelectedRows Is Nothing _
    AndAlso .SelectedRows.Count > 0 Then
     textbox1.text =.SelectedRows(0).Cells(1).Value
    End If
End With
  End Sub