Fet stil på en rad i en ms flexgrid?

Det enda sättet jag kan komma på är att per cell
sätta CellFontBold = True.

    grid.Cols = 8
    grid.Rows = 123
    
    'Ladda lite onödiga siffror till testgriden..
    For i = 0 To grid.Rows - 1
        For ii = 0 To grid.Cols - 1
            grid.TextMatrix(i, ii) = Rnd * 10000
        Next ii
    Next i

   'Sätt fetstil på varannan rad
    For i = 0 To grid.Rows - 1 Step 2
        grid.Row = i
        For ii = 0 To grid.Cols - 1
            grid.Col = ii
            grid.CellFontBold = True
        Next ii
    Next i

Kanske inte det bästa alternativet om du har 1000-tals rader
i din grid. Men du kan ju sätta fetstil som ovan samtidigt
som du populerar griden med riktig data :OO

Ok, hur skulle det se ut här?

    Do While Not rs.EOF
    If rs(5) > 0 Then flxRecived.CellFontBold = True Else flxRecived.CellFontBold = False
    flxRecived.AddItem rs(0) & vbTab & rs(1) & vbTab & rs(2) & vbTab & rs(3) & vbTab & rs(4)
    rs.movenext
    Loop

Så här någonting:

    Dim i As Integer
    
    flxRecived.Rows = 1
    Do While Not rs.EOF
        flxRecived.AddItem rs(0) & vbTab & rs(1) & vbTab & rs(2) & vbTab & rs(3) & vbTab & rs(4)
        flxRecived.Row = flxRecived.Rows - 1
        If rs(5) > 0 Then
            For i = 0 To flxRecived.Cols - 1
                flxRecived.Col = i
                flxRecived.CellFontBold = True
            Next i
        Else
            flxRecived.CellFontBold = False
        End If
        rs.movenext
    Loop

Tack, va bussigt.