AnnGetUserHandles example for Visual Basic

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

   RasterAnn.AnnGetUserHandles(hObject)
   Count = RasterAnn.UserHandleCount

   If Count > 0 Then
      For i = 0 To Count - 1

         MsgBox "uIndex = " + Str(i) + Chr$(13) _
           + "nID = " + Str(RasterAnn.UserHandle(i).ID) + Chr(13) _
           + "ContainerX = " + Str(RasterAnn.UserHandle(i).ContainerX) + Chr(13) _
           + "ContainerY = " + Str(RasterAnn.UserHandle(i).ContainerY) + Chr(13) _
           + "CliantX = " + Str(RasterAnn.UserHandle(i).ClientX) + Chr(13) _
           + "ClientY = " + Str(RasterAnn.UserHandle(i).ClientY) + Chr(13) _
           + "bVisible = " + Str(RasterAnn.UserHandle(i).EnableVisible) + Chr(13) _
           + "PenColor = " + Str(RasterAnn.UserHandle(i).PenColor) + Chr(13) _
           + "FillColor = " + Str(RasterAnn.UserHandle(i).FillColor) + Chr(13) _
           + "Shape = " + Str(RasterAnn.UserHandle(i).Shape) + Chr(13)
      Next i

   Else
      MsgBox "No User Handles"
   End If

End Sub