Code:
Sub DarkBlue()
Dim ItBe As String
Let ItBe = DarkBlue
End Sub
Code:
'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]
Code:
Sub Blueviolet()
Dim ItBe As String
Let ItBe = Blueviolet
End Sub
Code:
'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]
Attachment 3822
Bookmarks