DispatchValue example for Visual Basic

   Dim RasterVariant As New LEADRasterVariant_U
   Dim Raster As New LEADRaster

   RasterVariant.Type = VALUE_DISPATCH
   RasterVariant.DispatchValue = Raster