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