AnnGetUserData example for Visual Basic

Private Sub SampleAnnUserData(hObject As Long)

   Dim UserData As New LEADRasterVariant
   UserData.Type = VALUE_STRING
   UserData.StringValue = "This is Sample Code"
   
   RasterAnn.Flags = ANN_FLAG_NOINVALIDATE
   RasterAnn.AnnSetUserData hObject, UserData
   
   UserData.Type = VALUE_STRING
   RasterAnn.AnnGetUserData hObject, UserData
   
   MsgBox UserData.StringValue
   
End Sub