AnnDeleteUserHandle example for Visual Basic

'This examples deletes the first user handles of an object
Private Sub ExampleAnnDeleteUserHandle(hObject As Long)
   Dim Count As Long

   RasterAnn.AnnGetUserHandles(hObject)
   Count = RasterAnn.UserHandleCount

   If Count > 0 Then
      RasterAnn.AnnDeleteUserHandle hObject, 0
   Else
      MsgBox "No User Handle"
   End If

End Sub