xml

Script Sub InitForm loadColors() End Sub Class ColorsObj Public codeColor Public hexaColor Public rgbColor Public vtwColor End Class Dim arrColors() EmptyArray() Sub EmptyArray() ReDim arrColors(0) Set sObj = new ColorsObj sObj.codeColor = “” sObj.hexaColor = “” sObj.rgbColor = “” sObj.vtwColor = “” Set arrColors(0) = sObj End sub Sub loadColors() Erase arrColors Set XMLColors = […]