;Visual Basic Syntax highlight Script for Twistpad
;1998 - 2022 © Carthago Software

[::Header::]
SyntaxName=Visual Basic
Extensions=bas;frm;cls;ctl
Functions=(?i)^(sub|function|private.sub|private.function|public.sub|public.function)(.*)(\(.*$)
FunctionSubs=$2
Spelling=0 
SpellingContexts=1;2;3
CommentChar='

[Comment1]
Type=StartStop
Context=1
Scope=0
Priority=10
WholeWordOnly=0
First='
Last=
ColorConstant=ColorComments
italic=0

[Comment2]
Type=StartStop
Context=2
Scope=0
Priority=10
WholeWordOnly=1
First=rem
Last=
ColorConstant=ColorComments
italic=0

[Quote]
Type=StartStop
Context=3
Scope=0
Priority=10
WholeWordOnly=0
First="
Last="
ColorConstant=ColorStrings

[Compiler directives]
Type=StartStop
Context=4
Scope=0
Priority=10
WholeWordOnly=1
First=# 
Last=
ColorConstant=ColorPreProcessors
italic=0
BeginParagraph=1

[Sub]
Type=StartStop
Context=5
Scope=0
Priority=4
WholeWordOnly=1
First=Sub
Last=End Sub
italic=0
BeginParagraph=1
Outline=1

[Function]
Type=StartStop
Context=5
Scope=0
Priority=4
WholeWordOnly=1
First=Function
Last=End Function
italic=0
BeginParagraph=1
Outline=1

[PublicFunction]
Type=StartStop
Context=5
Scope=0
Priority=4
WholeWordOnly=1
First=Public Function
Last=End Function
italic=0
BeginParagraph=1
Outline=1

[PrivateFunction]
Type=StartStop
Context=5
Scope=0
Priority=4
WholeWordOnly=1
First=Private Function
Last=End Function
italic=0
BeginParagraph=1
Outline=1

[PublicSub]
Type=StartStop
Context=5
Scope=0
Priority=4
WholeWordOnly=1
First=Public Sub
Last=End Sub
italic=0
BeginParagraph=1
Outline=1

[PrivateSub]
Type=StartStop
Context=5
Scope=0
Priority=4
WholeWordOnly=1
First=Private Sub
Last=End Sub
italic=0
BeginParagraph=1
Outline=1

[frmMNameSpaceBlock]
Type=StartStop
Context=6
Scope=0
Priority=3
WholeWordOnly=1
First=namespace
Last=end namespace
italic=0
BeginParagraph=1
Outline=1
Smart=1

[frmModuleBlock]
Type=StartStop
Context=6
Scope=0
Priority=3
WholeWordOnly=1
First=module 
Last=end module
italic=0
BeginParagraph=1
Outline=1
Smart=1

[frmBEBlock]
Type=StartStop
Context=6
Scope=0
Priority=5
WholeWordOnly=1
First=Begin
Last=End
italic=0
BeginParagraph=0
Outline=1
Smart=1

[VB Keyword]
Type=keyword
Context=101
Scope=0
Priority=5
WholeWordOnly=1
Keyword1=as;sub;Inherits;Imports
Keyword2=as;do;go;if;is;on;or;to;set;private;true;false;nothing;boolean;Explicit 
Keyword3=all;and;any;bof;cls;com;def;dim;end;eqv;for;get;imp;key;let;mod;not;off;out;put;run;seg;xor;new 
Keyword4=base;beep;call;case;ccur;data;draw;else;exit;goto;kill;line;list;lock;long;loop;lset;name;next;open;play;poke;pset;read;rset;sadd;seek;step;stop;swap;then;tron;type;view;wait;wend
Keyword5=alias;bload;bsave;byval;calls;cdecl;chain;chdir;clear;close;color;const;endif;erase;error;event;field;files;gosub;input;ioctl;local;mkdir;paint;pcopy;print;redim;reset;rmdir;shell;sleep;sound;stack;strig;timer;troff;until;using;while;width;write
Keyword6=access;append;binary;circle;common;defcur;defdbl;defint;deflng;defsng;defstr;delete;double;elseif;locate;lprint;option;output;preset;random;resume;return;screen;seekeq;seekge;seekgt;select;setmem;shared;signal;single;string;system;uevent;unlock;window;global;Public;Static
Keyword7=chdrive;declare;environ;integer;palette;restore 
Keyword8=currency;function;retrieve;with
Keyword9=randomize;savepoint;implementation
Keyword10=begintrans;checkpoint;Each;Namespace;class
Keyword11=committrans;createindex;deleteindex;deletetable;Module
ColorConstant=ColorKeyword1
Bold=0

[DFM Keys]
Type=keyword
Context=102
Scope=6
Priority=5
WholeWordOnly=1
Keyword1=begin;end
ColorConstant=ColorKeyword2
Bold=0
