[VB]
lexer=vb
keywords.0=name:VB6 Keywords::abs and array asc ascb ascw atn call case cbool \
cbyte ccur cdate cdbl chr chrb chrw cint csng cstr date dateadd datediff \
datepart dateserial datevalue day description dim do each else empty end eqv \
erase err escape eval execute executeglobal exit exp explicit false \
filter firstindex fix for formatcurrency formatdatetime formatnumber \
formatpercent function get getlocale getobject getref global helpcontext \
helpfile hex hour if ignorecase imp inputbox instr instrb instrrev int is \
isarray isdate isempty isnull isnumeric isobject join lbound lcase left \
leftb len lenb length let loadpicture log loop ltrim match matches mid \
midb minute mod month monthname msgbox next not nothing now null number \
object oct on option or pattern private property public raise randomize \
redim regexp rem replace rgb right rightb rnd round rtrim scriptengine \
scriptenginebuildversion scriptenginemajorversion scriptengineminorversion \
second select set setlocale sgn sin source space split sqr strcomp  string \
strreverse sub tan test then time timer timeserial timevalue to trim tristate \
true typename ubound ucase unescape value vartype \
weekday weekdayname wend while with xor year vbabort vbabortretryignore \
vbapplicationmodal vbarray vbbinarycompare vbblack vbblue vbboolean vbbyte \
vbcancel vbcr vbcritical vbcrlf vbcurrency vbcyan vbdatabasecompare \
vbdataobject vbdate vbdecimal vbdefaultbutton1 vbdefaultbutton2 \
vbdefaultbutton3 vbdefaultbutton4 vbdouble vbempty vberror vbexclamation \
vbfalse vbfirstfourdays vbfirstfullweek vbfirstjan1 vbformfeed vbfriday \
vbgeneraldate vbgreen vbignore vbinformation vbinteger vblf vblong \
vblongdate vblongtime vbmagenta vbmonday vbmsgboxhelpbutton vbmsgboxright \
vbmsgboxrtlreading vbmsgboxsetforeground vbnewline vbno vbnull vbnullchar \
vbnullstring vbobject vbobjecterror vbok vbokcancel vbokonly vbquestion \
vbred vbretry vbretrycancel vbsaturday vbshortdate vbshorttime \
vbsingle vbstring vbsunday vbsystemmodal vbtab vbtextcompare vbthursday \
vbtrue vbtuesday vbusedefault vbusesystem vbusesystemdayofweek vbvariant \
vbverticaltab vbwednesday vbwhite vbyellow vbyes vbyesno vbyesnocancel

keywords.1=name:Other Statements::appactivate beep chdir chdrive close filecopy get input kill line unlock mkdir name \
open print put reset rmdir savepicture savesetting seek sendkeys setattr width write

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=;