CopyTo Method
Syntax
CWIMAQArc.CopyTo DestArc
Purpose
Copies all of the properties from the source arc into the destination arc.
Parameters
DestArc As CWIMAQArc
The destination arc.
Example
Private Sub Run_Click()
Dim Arc1 As New CWIMAQArc
Dim Arc2 As New CWIMAQArc
'Initialize Arc1 and copy its data into Arc2
Arc1.Initialize 30, 40, 50, 60, 45, 315
Arc1.CopyTo Arc2
'Overlay Arc2 on the viewer's image
CWIMAQViewer1.Image.Overlays(1).DrawArc Arc2, cwimaqOverlayModeFrame
End Sub