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