This example uses the GetSelectedAnnotationLineColor method to determine the color of a selected line annotation. It then updates the Microsoft common dialog box to indicate the color obtained.
This example also uses the Microsoft common dialog box and the SetSelectedAnnotationLineColor method to change the color of a selected line annotation.
Private Sub cmdLineColor_Click()
'This example uses the Microsoft color dialog box to
'change a selected annotation mark's line color.
Dim LineColor As OLE_COLOR
'Determine the current color of the selected annotation
'mark and init the dialog box color property to that color.
LineColor = ImgEdit1.GetSelectedAnnotationLineColor
CommonDialog1.Color = LineColor
CommonDialog1.Flags = cdlCCRGBInit
CommonDialog1.ShowColor
ImgEdit1.SetSelectedAnnotationLineColor CommonDialog1.Color
End Sub