[VBScript]
lexer=vbscript
keywords.0=name:Keywords::addressof alias and as attribute base begin binary boolean byref byte byval call case cdbl \
cint clng compare const csng cstr currency date decimal declare defbool defbyte defcur \
defdate defdbl defdec defint deflng defobj defsng defstr defvar dim do double each else \
elseif empty end enum eqv erase error event exit explicit false for friend function get \
global gosub goto if imp implements in input integer is len let lib like load lock long \
loop lset me mid midb mod new next not nothing null object on option optional or paramarray \
preserve print private property public raiseevent randomize redim rem resume return rset \
seek select set single static step stop string sub text then time to true type typeof \
unload until variant wend while with withevents xor \
addhandler andalso ansi assembly auto catch cbool cbyte cchar cdate cdec char class \
cobj continue csbyte cshort ctype cuint culng cushort custom default delegate directcast \
endif externalsource finally gettype handles imports inherits interface isfalse isnot \
istrue module mustinherit mustoverride my mybase myclass namespace narrowing notinheritable \
notoverridable of off operator orelse overloads overridable overrides partial protected \
readonly region removehandler sbyte shadows shared short strict structure synclock \
throw try trycast uinteger ulong unicode ushort using when widening writeonly

keywords.1=name:User 1::

keywords.2=name:User 2::

keywords.3=name:User 3::

style.33=name:LineNumbers,fore:clBlack,back:clSilver,font:Arial
style.34=name:Ok Braces,fore:clBlue,bold
style.35=name:Bad Braces,fore:clRed,bold
style.36=name:Control Chars,back:clSilver
style.37=name:Indent Guide,fore:clSilver
style.0=name:Whitespace
style.1=name:Comment,fore:clGreen
style.2=name:Number,fore:clTeal
style.3=name:Keyword,fore:clNavy,bold
style.4=name:Double quoted string,fore:clPurple
style.5=name:Preprocessor,fore:clOlive
style.6=name:Operators,bold
style.7=name:Identifier
style.8=name:Date,fore:clTeal
style.9=name:String Not Closed (EOL)
style.10=name:Other Keywords 1,fore:clNavy,bold
style.11=name:Other Keywords 2,fore:clNavy,bold
style.12=name:Other Keywords 3,fore:clNavy,bold

CommentBoxStart=/*
CommentBoxEnd=*/
CommentBoxMiddle=*
CommentBlock='
CommentStreamStart=/*
CommentStreamEnd=*/
AssignmentOperator==
EndOfStatementOperator=;