QuickScript.NET in ArchestrA. Using array in scripting

QuickScript.NET. Почти тот же VisualBasic. Синтаксис схож: объявить также массив не получилось, документация этот момент не освещала, на глаза попался блог двух инженеров. Алилуя, вот оно. Ниже приведен практический пример. 

{EDIT THIS BLOCK IF 16 PENS IS NOT ENOUTH}

DIM HistServer AS Message;
HistServer = "CHESV02HIST";

DIM i AS INTEGER;

DIM LocalArray[16] As Message;

{WRITE YOUR HISTORY TAG AS TEXT HERE }

LocalArray[1] = "PID12010107.PAR_PV";
LocalArray[2] = "PID12010107.PAR_EXTSP";
LocalArray[3] = "PID12010107.PAR_OPSP";
LocalArray[4] = "V12010107.PAR_OUTPUT";
LocalArray[5] = "";
LocalArray[6] = "";
LocalArray[7] = "";
LocalArray[8] = "";
LocalArray[9] = "";
LocalArray[10] = "";
LocalArray[11] = "";
LocalArray[12] = "";
LocalArray[13] = "";
LocalArray[14] = "";
LocalArray[15] = "";
LocalArray[16] = "";

TestTag = LocalArray[1];

{WRITE NUMBER OF BUTTON HERE}
ActiveButton = 1;

{DO NOT EDIT}
aaHistClientTrend.AddMultipleTags = true;
aaHistClientTrend.ClearTags();
aaHistClientTrend.SetDuration("01:00:00");

FOR i = 1 TO 16 STEP 1
    IF LocalArray[i] <> "" THEN
        aaHistClientTrend.AddAnyTag(HistServer, LocalArray[i]);
    ENDIF;
NEXT;

aaHistClientTrend.AddMultipleTags = false;

FOR i = 1 TO 16
    IF LocalArray[i] <> "" THEN
        aaHistClientTrend.SetTagPenWidth( HistServer, LocalArray[i], 2);
    ENDIF;
NEXT;

aaHistClientTrend.ScaleAutoAllTags();