1 Sub QAxWidget2_Click

     2 	QAxWidget2.lineWidth = QAxWidget2.lineWidth + 1

     3 	MainWindow.logMacro 0, "Hello from VBScript: QAxWidget2_Click", 0, ""

     4 End Sub

     5 

     6 Sub fatLines

     7 	QAxWidget2.lineWidth = 25

     8 End Sub

     9 

    10 Sub thinLines

    11 	QAxWidget2.lineWidth = 1

    12 End Sub

    13 

    14 Sub setLineWidth(width)

    15 	QAxWidget2.lineWidth = width

    16 End Sub

    17 

    18 Public Function getLineWidth

    19 	getLineWidth = QAxWidget2.lineWidth

    20 End Function