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
