test BB Code

[sandy666]

new FT is a different but I found it here and it works

#If VBA7 Then
    #If USE_RGB Then
        Public Const TB_BORDER_COLOR As String = "rgb(182, 170, 166)"
        Public Const COLHDR_BCKGRND_COLOR As String = "rgb(0, 0, 0)"
        Public Const ROWHDR_FONT_COLOR As String = "rgb(32, 17, 22)"
        Public Const csHEADER_COLOR As String = "rgb(255, 255, 255)"
        Public Const csROW_BACK As String = "rgb(255, 255, 255)"
    #Else
        Public Const TB_BORDER_COLOR As String = "#B6AAA6"
        Public Const COLHDR_BCKGRND_COLOR As String = "#000000"
        Public Const ROWHDR_FONT_COLOR As String = "#201116"
        Public Const csHEADER_COLOR As String = "#FFFFFF"
        Public Const csROW_BACK As String = "#FFFFFF"
    #End If
    Public Const ROWHDR_BCKGRND_COLOR As String = COLHDR_BCKGRND_COLOR
    Public Const ROWHDR_BORDER_COLOR As String = TB_BORDER_COLOR
#Else
    #If USE_RGB Then
        Public Const TB_BORDER_COLOR As String = "rgb(182, 170, 166)"
        Public Const COLHDR_BCKGRND_COLOR As String = "rgb(0, 0, 0)"
        Public Const ROWHDR_FONT_COLOR As String = "rgb(32, 17, 22)"
        Public Const csHEADER_COLOR As String = "rgb(255, 255, 255)"
        Public Const csROW_BACK As String = "rgb(255, 255, 255)"
    #Else
        Public Const TB_BORDER_COLOR As String = "#B6AAA6"
        Public Const COLHDR_BCKGRND_COLOR As String = "#000000"
        Public Const ROWHDR_FONT_COLOR As String = "#201116"
        Public Const csHEADER_COLOR As String = "#FFFFFF"
        Public Const csROW_BACK As String = "#FFFFFF"
    #End If
    Public Const ROWHDR_BCKGRND_COLOR As String = COLHDR_BCKGRND_COLOR
    Public Const ROWHDR_BORDER_COLOR As String = TB_BORDER_COLOR
#End If


#If USE_RGB Then
    Public Const TB_BCKGRND_COLOR As String = "rgb(255, 255, 255)"
    Public Const TB_FONT_COLOR    As String = "rgb(48, 34, 38)"
#Else
    Public Const TB_BCKGRND_COLOR As String = "#FFFFFF"
    Public Const TB_FONT_COLOR    As String = "#302226"
#End If
Public Const TB_FONT_SIZE     As String = "11pt"
Public Const TB_PADDING       As String = "0.3em"
Public Const MAX_BRACKETS     As Long = 100
Public Const MAX_ROWS         As Long = 100
Public Const MAX_COL          As Long = 100

Enum FormulaSettings
    NotSet = -1
    AllFormulas = 0
    FirstCell = 1
    FirstCellInColumn = 2
    NoFormulas = 3
    UserDefined = 4
End Enum

idiotic! code tags doesn't keep format after edit

hm, now it works, weird