Sub main()Dim app As Object Set app = CreateObject("pcdlrn.application")Dim part As Object Set part = app.ActivePartProgramDim cmds As Object Set cmds = part.CommandsDim cmd As ObjectDim theoTZ As DoubleDim arr(10000) As SingleDim i As Intege