shadeでvb scriptを使う

shadeでもvb scriptが使えます。
以下はソファを作るscriptです。
fileをxxx.vbsでつくり、スクリプト>その他
でファイルの種類をvbスクリプトにしてファイルを開いてください。

XShade.CreatePart
XShade.ObjectName = "TEST01"
Call RECT( -700,850, 100, 1400, 150, 800, "BACK", 0.5,0.5, 0.5)
Call RECT( -700,700, 100, 150, 700, 600, "RIGHT", 0.5,0.5, 0.5)
Call RECT( 550,700, 100, 150, 700, 600, "LEFT", 0.5,0.5, 0.5)
Call RECT( -550,700, 100, 550, 700, 400, "RIGHTBOX", 0.5,0.5, 0.5)
Call RECT( 0,700, 100, 550, 700, 400, "LEFTBOX", 0.5,0.5, 0.5)
Call COLUMN(-650,50, 0, 50, 100, "LEG1", 0.1,0.1, 0.1)
Call COLUMN(650,50, 0, 50, 100, "LEG2", 0.1,0.1, 0.1)
Call COLUMN(-650,800, 0, 50, 100, "LEG3", 0.1,0.1, 0.1)
Call COLUMN(650,800, 0, 50, 100, "LEG4", 0.1,0.1, 0.1)

Function RECT(X, Y, Z, XLENGTH, YLENGTH, ZLENGTH, OBJNAME, REDVAL, GREENVAL, BLUEVAL)

XShade.StartPolygon 1 '0:open line, 1:closed line
XShade.AppendPoint X, Z, -Y
XShade.AppendPoint X + XLENGTH, Z, -Y
XShade.AppendPoint X + XLENGTH, Z, -Y + YLENGTH
XShade.AppendPoint X, Z, -Y + YLENGTH
XShade.FinishPolygon
XShade.SolidExtrude 0, ZLENGTH, 0
XShade.ObjectName = OBJNAME
XShade.BaseColor(0) = REDVAL
XShade.BaseColor(1) = GREENVAL
XShade.BaseColor(2) = BLUEVAL

End Function

Function COLUMN(X, Y, Z, RADIUS, ZLENGTH, OBJNAME, REDVAL, GREENVAL, BLUEVAL)

XShade.CreateDisk X, Z, -Y, RADIUS, 1
XShade.SolidExtrude 0, ZLENGTH, 0
XShade.ObjectName = OBJNAME
XShade.BaseColor(0) = REDVAL
XShade.BaseColor(1) = GREENVAL
XShade.BaseColor(2) = BLUEVAL

End Function

Function SPHERE(X, Y, Z, RADIUS, OBJNAME, REDVAL, GREENVAL, BLUEVAL)

XShade.CreateSphere X, Z, -Y, RADIUS
XShade.ObjectName = OBJNAME
XShade.BaseColor(0) = REDVAL
XShade.BaseColor(1) = GREENVAL
XShade.BaseColor(2) = BLUEVAL

End Function