AnnPointOptions example for Visual Basic

Private Sub ExampleAnnSetPointOptions(hObject As Long)

   Dim ObjectType As AnnObjectType

   RasterAnn.AnnGetType hObject
   ObjectType = RasterAnn.AnnType

   If ObjectType <> ANN_OBJECT_POINT Then
      MsgBox "This Object is not an Point Option"
   End If

   RasterAnn.AnnPointOptions.Flags = ANN_POINT_ALL
   RasterAnn.AnnGetPointOptions(hObject)
   If IsNull(RasterAnn.AnnPointOptions.PointRaster) Then
      MsgBox "There is no raster associated. "
      Exit Sub
   End If

   If RasterAnn.AnnPointOptions.EnablePointUseBitmap = True Then
      RasterAnn.AnnPointOptions.EnablePointUseBitmap = False
      RasterAnn.AnnPointOptions.EnablePointFixedSize = False
      RasterAnn.AnnPointOptions.EnablePointTransparentFill = False
      RasterAnn.AnnPointOptions.PointBorderColor = RGB (0, 0, 0)
      RasterAnn.AnnPointOptions.PointFillColor = RGB (255, 255, 0)
      RasterAnn.AnnPointOptions.PointRadius = 12
      RasterAnn.AnnPointOptions.Flags = ANN_POINT_USE_BITMAP Or _
                                      ANN_POINT_RADIUS Or _
                                      ANN_POINT_BORDER_COLOR Or _
                                      ANN_POINT_FILL_COLOR Or _
                                      ANN_POINT_TRANSPARENT_FILL Or _
                                      ANN_POINT_FIXED_SIZE
   Else
      'Change Point appearance to a bitmap
      RasterAnn.AnnPointOptions.EnablePointUseBitmap = True
      RasterAnn.AnnPointOptions.EnablePointBitmapTransparent = True
      RasterAnn.AnnPointOptions.PointBitmapTransparentColor = RGB(255, 255, 255)
   End If

   RasterAnn.Flags = 0
   RasterAnn.AnnSetPointOptions(hObject)

End Sub