[ابو انس]

تفضل اخي

كود :

     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