1 files changed, 20 insertions, 0 deletions
diff --git a/tools/activeqt/testcon/scripts/vbscript.vbs b/tools/activeqt/testcon/scripts/vbscript.vbs
new file mode 100644
index 0000000..bd29f19
--- /dev/null
+++ b/tools/activeqt/testcon/scripts/vbscript.vbs
@@ -0,0 +1,20 @@
+Sub QAxWidget2_Click
+	QAxWidget2.lineWidth = QAxWidget2.lineWidth + 1
+	MainWindow.logMacro 0, "Hello from VBScript: QAxWidget2_Click", 0, ""
+End Sub
+
+Sub fatLines
+	QAxWidget2.lineWidth = 25
+End Sub
+
+Sub thinLines
+	QAxWidget2.lineWidth = 1
+End Sub
+
+Sub setLineWidth(width)
+	QAxWidget2.lineWidth = width
+End Sub
+
+Public Function getLineWidth
+	getLineWidth = QAxWidget2.lineWidth
+End Function