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