// Select half of the annotations.
int count = 0;
foreach (ImGearARTMark igARTMark in igARTPage)
{
    if (count++ % 2 == 1)
        igARTPage.MarkSelect(igARTMark, true);
}
// Burn the selected annotations into the image.
ImGearPage igPageNew = ImGearART.BurnIn(igPage, igARTPage, ImGearARTBurnInOptions.SELECTED, null);
igPageView.Page = igPageNew;
// Remove the burned in annotations from the art page.
foreach (ImGearARTMark igARTMark in igARTPage)
{
    if (igARTPage.MarkIsSelected(igARTMark))
        igARTPage.MarkRemove(igARTMark);
}

' 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