WriteComment example for Visual Basic

   Dim RasterIO As New LEADRasterIO
Dim RsaterVar As New LEADRasterVariant
   ' set the comment
   RsaterVar.Type = VALUE_STRING
   RsaterVar.StringValue = "Me"
   RasterIO.Comment(CMNT_SZARTIST) = RsaterVar
   ' write the comment into page 1 of TEST.TIF
   RasterIO.WriteComment "d:\temp\TEST.TIF", 1
   ' read the comment and display it
   RsaterVar = RasterIO.ReadComment(LEADRasterView1.Raster, _
                               "d:\temp\TEST.TIF", 1, CMNT_SZARTIST) 
   MsgBox RsaterVar.StringValue