Seleccionar toda una fila con un clic en una celda

Imports System 
Imports System.Drawing 
Imports System.Windows.Forms 
'... 
Private Sub DG_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles DG.MouseUp 
   ' recuperamos las coordenadas del ratón 
   Dim p = New Point(e.X, e.Y) 
   ' determinamos la parte clicada del DataGrid
   Dim HTI As DataGrid.HitTestInfo = DG.HitTest(p) 
   ' si es de tipo 'celda'
   If (HTI.Type = DataGrid.HitTestType.Cell) Then 
      ' definimos la celda en curso
      DG.CurrentCell = New DataGridCell(HTI.Row, HTI.Column) 
      ' seleccionamos la línea correspondiente
      DG.Select(HTI.Row) 
   End If 
End Sub