;VB Script Syntax highlight Script for Twistpad
;1998 - 2009 © Carthago Software

[::Header::]
SyntaxName=Visual Basic Script
Extensions=vbs
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=1

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

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

[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

[VB Keyword]
Type=keyword
Context=101
Scope=0
Priority=6
WholeWordOnly=1
Keyword1=And;As;Boolean;ByRef;Byte;ByVal;Call;Case;Class;Const;Currency;Debug;Dim;Do;Double;Each;Else;ElseIf;Empty;End;EndIf
Keyword2=Enum;Eqv;Event;Exit;False;For;Function;Get;GoTo;If;Imp;Implements;In;Integer;Is;Let;Like;Long;Loop;LSet;Me;Mod;New;
Keyword3=Next;Not;Nothing;Null;On;Option;Optional;Or;ParamArray;Preserve;Private;Public;Raise;Event;ReDim;Rem;Resume;RSet;
Keyword4=Select;Set;Shared;Single;Static;Stop;Sub;Then;To;True;Type;TypeOf;Until;Variant;Wend;While;With;Xor;randomize
ColorConstant=ColorKeyword1
Bold=0
