For t As Integer = 0 To DGV.Rows.Count - 1
DGV.Rows.Item(t).Height = 22
DGV.Rows.Item(t).DefaultCellStyle.Font = New Font("Tahoma", 8)
Next
Dim a As Integer
a = DGV.CurrentCell.RowIndex
DGV.Rows.Item(a).Height = 30
DGV.Rows(a).DefaultCellStyle.Font = New Font("Tahoma", 10)
a = Nothing