# Lexer - VB in this case
Lexer=8
Keywords0=and begin case call continue do each else elseif end erase error event exit false for function get gosub goto if implement in load loop lset me mid new next not nothing on or property raiseevent rem resume return rset select set stop sub then to true unload until wend while with withevents attribute alias as boolean byref byte byval const compare currency date declare dim double enum explicit friend global integer let lib long module object option optional preserve private property public redim single static string type variant
Keywords1=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 do double each else elseif end enum erase error event exit false finally for friend function get gettype 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
# VB Styles
# White space
style0=0,16777215,0,0,"Courier New",10,noeol
# Comment
style1=4227072,16777215,0,1,"Courier New",10,noeol
# Number
style2=255,16777215,0,0,"Courier New",10,noeol
# Keyword
style3=8388608,16777215,0,0,"Courier New",10,noeol
# String
style4=8388736,16777215,0,0,"Courier New",10,noeol
# Preprocessor
style5=16711680,16777215,0,0,"Courier New",10,noeol
# Operator
style6=0,16777215,0,0,"Courier New",10,noeol
# Date
style8=255,16777215,0,0,"Courier New",10,noeol
# Default
style32=0,16777215,0,0,"Courier New",10,noeol
# Gutter
style33=0,13554646,0,0,"Courier New",10,noeol
# Brace Match
style34=16711680,16777215,1,0,"Courier New",10,noeol
# Brace Bad Highlight
style35=255,16777215,1,0,"Courier New",10,noeol
# Margin Styling
margin1=0,35,0,0
margin2=0,14,$FE000000,1
# Properties. These are generic. Just put property. + the property. Then =value.
property.fold=1
property.fold.compact=1
# Folding Styles
Fold=0
FoldFlags=16
Brace=6
Comment='~ %d