Name=Visual Basic
Description=Visual Basic Code Snippets
FileTypes=vb,vbs,bas,frm,cls
LanguageID=$0409
Language=English (United States)
Name=Headers\File
Shortcut=filehdr
'/////////////////////////////////////////////////////////////////////////////
'// #%FILENAME%#
'//
'// Time: #%LONGDATE%# #%TIME24%#
'// Author: #@Author@#
'// Organization: #@Organization@#
'// Description: #@Description@#
'/////////////////////////////////////////////////////////////////////////////
Name=Headers\Function or Subrutine
Shortcut=funchdr
'/////////////////////////////////////////////////////////////////////////////
'// Name: #@Function Name@#
'// Description: #@Description@#
'//
'// Arguments: #@Arguments@#
'//
'// Return: #@Return Value@#
'//
'// Author: #@Author@#
'// Time: #%LONGDATE%# #%TIME24%#
'/////////////////////////////////////////////////////////////////////////////
Name=Headers\Section
Shortcut=sechdr
'/////////////////////////////////////////////////////////////////////////////
'//
'// #@Section Name@#
'//
'/////////////////////////////////////////////////////////////////////////////
Name=Functions and Subroutines\Function
Shortcut=func
#@Access Type{[Public],Private}@# Function #@Name@# ( #@Arguments@# ) As #@Return Type@#
##
End Function
Name=Functions and Subroutines\Subroutine
Shortcut=sub
#@Access Type{[Public],Private}@# Sub #@Name@# ( #@Arguments@# )
##
End Sub
Name=Sentences\Case
Shortcut=case
Case #@Expression List@#
##
Name=Sentences\Do ... Loop Until
Shortcut=loopuntil
Do
##
Loop Until #@Condition@#
Name=Sentences\Do ... Loop While
Shortcut=loopwhile
Do
##
Loop While #@Condition@#
Name=Sentences\Do Until ... Loop
Shortcut=dountil
Do Until #@Condition@#
##
Loop
Name=Sentences\Do While ... Loop
Shortcut=dowhile
Do While #@Condition@#
##
Loop
Name=Sentences\For ... Next
Shortcut=for
For #@Variable@# = #@Initial Value@# To #@End Value@#
##
Next
Name=Sentences\For Each ... Next
Shortcut=foreach
For Each #@Item@# In #@Group@#
##
Next
Name=Sentences\If ... Then
Shortcut=if
If #@Condition@# Then
##
End If
Name=Sentences\If ... Then ... Else
Shortcut=ifelse
If #@Condition@# Then
##
Else
End If
Name=Sentences\Select Case
Shortcut=select
Select Case #@Expression@#
##
End Select
Name=Sentences\While ... Wend
Shortcut=while
While #@Condition@#
##
Wend
Name=Sentences\With
Shortcut=with
With #@Object@#
##
End With