Test BB Code Highlighting and Colors

[DocAElstein]

Sub DarkBlue()
Dim ItBe As String
 Let ItBe = DarkBlue
End Sub

'Converts the specified text with the VBE Color (Black, Blue or Green) using BB code
Private Function BBColor(ByVal Color As Long, ByVal Text As String) As String
    Dim Msg As String
    Msg = "[color="
    '  http://services.runescape.com/m=forum/forums.ws?278,279,877,64690220
    'Msg = Msg & Choose(Color, "black", "blue", "darkgreen") & "]"
    Msg = Msg & Choose(Color, "blue", "blue", "darkgreen") & "]" ' Custom Colors Wonk
    Msg = Msg & Text
    Msg = Msg & ""
    BBColor = Msg
End Function[/color]

Sub Blueviolet()
Dim ItBe As String
 Let ItBe = Blueviolet
End Sub

'Converts the specified text with the VBE Color (Black, Blue or Green) using BB code
Private Function BBColor(ByVal Color As Long, ByVal Text As String) As String
    Dim Msg As String
    Msg = "[color="
    '  http://services.runescape.com/m=forum/forums.ws?278,279,877,64690220
    'Msg = Msg & Choose(Color, "black", "blue", "darkgreen") & "]"
    Msg = Msg & Choose(Color, "blue", "blueviolet", "darkgreen") & "]" ' Custom Colors Wonk
    Msg = Msg & Text
    Msg = Msg & ""
    BBColor = Msg
End Function[/color]

fox.gif