DispatchValue example for Visual Basic

   Dim RasterVariant As New LEADRasterVariant
   Dim Raster As New LEADRaster

   RasterVariant.Type = VALUE_DISPATCH
   RasterVariant.DispatchValue = Raster