/usr/share/codeblocks/lexers/lexer_vbscript.sample is in codeblocks-common 10.05-2.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | ' Sample VBScript (VBS) preview code
'
' This is a comment.
#If Win32 Then
Public Const IsWin32 = True
#Else
Public Const IsWin32 = False
#End If
Dim myVal, btnPressed
myVal = MsgBox("Hello World!", vbOkCancel, "Hello")
Select Case myVal
Case 1 btnPressed = "OK"
Case 2 btnPressed = "Cancel"
Case Else btnPressed = "Error!"
End Select
MsgBox "You pressed the " & btnPressed & " button.", vbInformation
|