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 |