Private Sub DrawText(pn As BBCode.Collections.NodeCollection, objGraphics As Graphics, f As Font)
        Dim i As Integer
        For Each n As BBCode.Nodes.INode In pn

            'If n.Tag.Name = "b" Then f.Bold = True 

            Dim bbc As BBCode.Nodes.BBCode = n

            i = InStr(bbc.InnerText, "[")
            If i > 1 Then objGraphics.DrawString(Mid(bbc.InnerText, 1, i), f, Brushes.Black, 0, 0)
            DrawText(bbc.Children, objGraphics, f)
            i = InStrRev(bbc.InnerText, "]")
            If i < Len(bbc.InnerText) Then objGraphics.DrawString(Mid(bbc.InnerText, i + 1), f, Brushes.Black, 0, 0)

            'If n.Tag.Name = "b" Then f.Bold = False

        Next
    End Sub