/*
 * JsMin
 * Javascript Compressor
 * http://www.crockford.com/
 * http://www.smallsharptools.com/
*/

dp.sh.Brushes.Vb=function()
{var keywords='AddHandler AddressOf AndAlso Alias And Ansi As Assembly Auto '+'Boolean ByRef Byte ByVal Call Case Catch CBool CByte CChar CDate '+'CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType '+'Date Decimal Declare Default Delegate Dim DirectCast Do Double Each '+'Else ElseIf End Enum Erase Error Event Exit False Finally For Friend '+'Function Get GetType GoSub GoTo Handles If Implements Imports In '+'Inherits Integer Interface Is Let Lib Like Long Loop Me Mod Module '+'MustInherit MustOverride MyBase MyClass Namespace New Next Not Nothing '+'NotInheritable NotOverridable Object On Option Optional Or OrElse '+'Overloads Overridable Overrides ParamArray Preserve Private Property '+'Protected Public RaiseEvent ReadOnly ReDim REM RemoveHandler Resume '+'Return Select Set Shadows Shared Short Single Static Step Stop String '+'Structure Sub SyncLock Then Throw To True Try TypeOf Unicode Until '+'Variant When While With WithEvents WriteOnly Xor addhandler addressof andalso alias and ansi as assembly auto '+'boolean byref byte byval call case catch cbool cbyte cchar cdate '+'cdec cdbl char cint class clng cobj const cshort csng cstr ctype '+'date decimal declare default delegate dim directcast do double each '+'else elseif end enum erase error event exit false finally for friend '+'function get gettype gosub goto handles if implements imports in '+'inherits integer interface is let lib like long loop me mod module '+'mustinherit mustoverride mybase myclass namespace new next not nothing '+'notinheritable notoverridable object on option optional or orelse '+'overloads overridable overrides paramarray preserve private property '+'protected public raiseevent readonly redim rem removehandler resume '+'return select set shadows shared short single static step stop string '+'structure sub synclock then throw to true try typeof unicode until '+'variant when while with withevents writeonly xor response.write Response.Write conn.execute conexao.execute rs.eof wend';this.regexList=[{regex:new RegExp('\'.*$','gm'),css:'comment'},{regex:dp.sh.RegexLib.DoubleQuotedString,css:'string'},{regex:new RegExp('^\\s*#.*','gm'),css:'preprocessor'},{regex:new RegExp(this.GetKeywords(keywords),'gm'),css:'keyword'}];this.CssClass='dp-vb';}
dp.sh.Brushes.Vb.prototype=new dp.sh.Highlighter();dp.sh.Brushes.Vb.Aliases=['vb','vb.net'];