Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
   Handles Me.Load
 
      'Defaultwere für selektierte Zeilen (Selection Mode steht auf Fullrow
      dgvRechnungen.RowsDefaultCellStyle.SelectionBackColor = Color.Transparent
      '
      dgvRechnungen.RowsDefaultCellStyle.SelectionForeColor = Color.DarkBlue
 
      'Hier werden die Zellen einer Spalte durchlaufen und wenn
      'ein Wert True ist wird die Zeile z.B. ROT gefärbt
      Call proc_BezRechnFarbe()
 
      'Selktion herumternehmen
      dgvRechnungen.Rows(0).Selected = False ' für selektion
end sub
 
'Beim bewegen der Maus wird die erste Zeile selektiert, wenn nicht eine andere 
' selektiert ist.
Private Sub frmRechnungen_MouseMove(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
 
        If dgvRechnungen.SelectedRows.Count = 0 Then
            dgvRechnungen.Rows(0).Selected = True  ' für selektion
        End If
 
    End Sub