AnnChangeUserHandle example for Visual Basic

Private Sub ExampleAnnChangeUserHandle(hObject As Long)
   Dim Count As Long

   RasterAnn.AnnGetUserHandles(hObject)
   Count = RasterAnn.UserHandleCount

   If Count > 0 Then
      RasterAnn.AnnGetUserHandle hObject, 0

      RasterAnn.AnnHandle.ContainerX = RasterAnn.AnnHandle.ContainerX + 10
      RasterAnn.AnnHandle.FillColor = RGB(0, 0, 255)
      RasterAnn.AnnHandle.Shape = ANN_HANDLE_SHAPE_SQUARE
      RasterAnn.AnnHandle.Flags = ANN_HANDLE_FILL_COLOR Or _
                            ANN_HANDLE_SHAPE Or _
                            ANN_HANDLE_LOCATION

      RasterAnn.AnnChangeUserHandle hObject, 0

   Else
      MsgBox "No User Handle"
   End If

End Sub