' Select half of the annotations.
Dim count As Integer = 0
For Each igARTMark As ImGearARTMark In igARTPage
If System.Math.Max(System.Threading.Interlocked.Increment(count), count - 1) Mod 2 = 1 Then
igARTPage.MarkSelect(igARTMark, True)
End If
Next
' Burn the selected annotations into the image.
Dim igPageNew As ImGearPage = ImGearART.BurnIn(igPage, igARTPage, ImGearARTBurnInOptions.SELECTED, Nothing)
igPageView.Page = igPageNew
' Remove the burned in annotations from the art page.
For Each igARTMark As ImGearARTMark In igARTPage
If igARTPage.MarkIsSelected(igARTMark) Then
igARTPage.MarkRemove(igARTMark)
End If
Next