这个论坛插入VB代码的那个功能如何做的啊竟然还自动分出了颜色什么的

这个论坛插入VB代码的那个功能怎么做的啊竟然还自动分出了颜色什么的
VB code
Dim Msg() As Byte
Private Sub Command1_Click()
'测试
End Sub


------解决方案--------------------
搜索 代码加亮
------解决方案--------------------
探讨
VB code

Dim Msg() As Byte
sPrivate Sub Command1_Click()
'这个网页的 这种效果怎么做的呢 选择VB语言 就自动 更换相应的颜色了
End Sub