ShortItemValue example for Visual Basic

   Dim RasterVariant As New LEADRasterVariant
   
   RasterVariant.Type = VALUE_ARRAY_SHORT
   RasterVariant.ItemCount = 2
   RasterVariant.ShortItemValue(0) = 5
   RasterVariant.ShortItemValue(1) = 10