AnnHandle example for Visual Basic

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

RasterAnn.AnnGetUserHandles(hObject)
Count = RasterAnn.UserHandleCount

If Count > 0 Then
   RasterAnn.AnnGetUserHandle hObject, 0

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

Else
   MsgBox "No User Handles"
End If

End Sub