http://code.google.com/p/syntaxhighlighter/
'' '' This is a VB test '' ' ' This is a VB test ' Imports System.Collections Dim stringWithUrl = "http://blog.dreamprojections.com" Public Class MyVbClass Private m_MyString As String Public Sub New() myString = "Hello there" End Sub Public Property MyString() As String Get Return m_MyString End Get Set(ByVal Value As String) m_MyString = Value End Set End Property #Region "This is my region" ' This is a comment Public Function MyFunction( ByVal i as Integer ) As Double MyFunction = 123.456 End Function #End Region End Class