嗯 的确 不能用AS 只能：
Dim CvtType(20)
那我再请教下 现在我定义了21个数组了 下面能不能这样写到每个数组中去：
CvtType(0) = HMIRuntime.Tags("CS_AI00_Cvt_Type").Read
CvtType(1) = HMIRuntime.Tags("CS_AI01_Cvt_Type").Read
CvtType(2) = HMIRuntime.Tags("CS_AI02_Cvt_Type").Read
CvtType(3) = HMIRuntime.Tags("CS_AI03_Cvt_Type").Read
CvtType(4) = HMIRuntime.Tags("CS_AI04_Cvt_Type").Read
CvtType(5) = HMIRuntime.Tags("CS_AI05_Cvt_Type").Read
CvtType(6) = HMIRuntime.Tags("CS_AI06_Cvt_Type").Read
CvtType(7) = HMIRuntime.Tags("CS_AI07_Cvt_Type").Read
CvtType(8) = HMIRuntime.Tags("CS_AI08_Cvt_Type").Read
CvtType(9) = HMIRuntime.Tags("CS_AI09_Cvt_Type").Read
CvtType(10) = HMIRuntime.Tags("CS_AI10_Cvt_Type").Read
CvtType(11) = HMIRuntime.Tags("CS_AI11_Cvt_Type").Read
CvtType(12) = HMIRuntime.Tags("CS_AI12_Cvt_Type").Read
CvtType(13) = HMIRuntime.Tags("CS_AI13_Cvt_Type").Read
CvtType(14) = HMIRuntime.Tags("CS_AI14_Cvt_Type").Read
CvtType(15) = HMIRuntime.Tags("CS_AI15_Cvt_Type").Read
CvtType(16) = HMIRuntime.Tags("CS_AI16_Cvt_Type").Read
CvtType(17) = HMIRuntime.Tags("CS_AI17_Cvt_Type").Read
CvtType(18) = HMIRuntime.Tags("CS_AI18_Cvt_Type").Read
CvtType(19) = HMIRuntime.Tags("CS_AI19_Cvt_Type").Read
CvtType(20) = HMIRuntime.Tags("CS_AI20_Cvt_Type").Read