// Select half of the annotations.
int count = 0;
foreach (ImGearARTMark igARTMark in igArtPage)
{
    if (count++ % 2 == 1)
        igArtPage.MarkSelect(igARTMark, true);
}

// Create new presentation page display with default display settings.
ImGearPresentationPageDisplay pageDisplay = new ImGearPresentationPageDisplay();

// Initialize presentation page display with image and annotations.
pageDisplay.Page = igPage;
pageDisplay.ARTPage = igArtPage;

// Export presentation page display to ImGearRasterPage.
ImGearRasterPage igNewPage = pageDisplay.Export();
pageView.Page = igNewPage;

// Remove the burned in annotations from the art page.
foreach (ImGearARTMark igARTMark in igArtPage)
{
    if (igArtPage.MarkIsSelected(igARTMark))
        igArtPage.MarkRemove(igARTMark);
}

pageView.Update();

' Select half of the annotations.
Dim count As Integer = 0
For Each igARTMark As ImGearARTMark In igArtPage
    If count Mod 2 = 1 Then
        igArtPage.MarkSelect(igARTMark, True)
    End If
    count += 1
Next

' Create new presentation page display with default display settings.
Dim pageDisplay As New ImGearPresentationPageDisplay()

' Initialize presentation page display with image and annotations.
pageDisplay.Page = igPage
pageDisplay.ARTPage = igArtPage

' Export presentation page display to ImGearRasterPage.
Dim igNewPage As ImGearRasterPage = pageDisplay.Export()
pageView.Page = igNewPage

' 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

pageView.Update()