Different styles in one DataGridView cell

[robertybob]

Hi

I would like to show 2 lines in a DGV cell, the top line being a different font format than the 2nd line.

ie
<b>My Name</b>
(My Location)

Is there any way to do this? Even if it's using something like SelStart, counting the characters then changing the font and then doing the rest.... or changing formatting at the line break .... or override/paint etc?

Many thanks!

[robertybob]

Finally found the answer myself which is posted below in case anyone else needs something similar.

Many thanks to [_Joe_] on MS forums for work that led to this solution. Original MS post is here.

    Private Sub DGV_CellPainting(ByVal sender As Object, ByVal e As DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
        If e.ColumnIndex = 8 Then ' the column I want formatted
            e.Handled = True
            e.PaintBackground(e.CellBounds, True)
            Dim val As String = DataGridView1.Item(8, e.RowIndex).Value
            Dim CrLf() As Char = {vbCr, vbLf, vbCrLf}
            Dim valstr = val.Split(CrLf) ' splits the rows
            If valstr.Count >= 2 Then
                Dim upperfont As Font = New Font(e.CellStyle.Font, FontStyle.Bold)
                Dim lowerfont As Font = New Font("Arial", 8, FontStyle.Regular)
                Dim upperbrush As SolidBrush = New SolidBrush(Color.White)
                Dim lowerbrush As SolidBrush = New SolidBrush(Color.DarkGray)
                Dim upperstr As String = valstr(0)
                Dim lowerstr As String = valstr(2) ' 2nd part of split seems to be stored as empty so we need 3rd part
                Dim uppersize As SizeF = e.Graphics.MeasureString(upperstr, e.CellStyle.Font, e.CellBounds.Size)
                Dim lowersize As SizeF = e.Graphics.MeasureString(lowerstr, lowerfont, e.CellBounds.Size)
                e.Graphics.DrawString(upperstr, upperfont, upperbrush, e.CellBounds.X + ((e.CellBounds.Width - uppersize.Width) / 2), e.CellBounds.Location.Y + 5)
                e.Graphics.DrawString(lowerstr, lowerfont, lowerbrush, e.CellBounds.X + ((e.CellBounds.Width - lowersize.Width) / 2), e.CellBounds.Location.Y + 22)
            Else
                e.PaintContent(e.CellBounds)
            End If
        End If
    End Sub