public void ReadAnalyticalLinks(Document document)
{
    FilteredElementCollector collectorAnalyticalLinks = new FilteredElementCollector(document);
    collectorAnalyticalLinks.OfClass(typeof(AnalyticalLink));

    IEnumerable<AnalyticalLink> alinks = collectorAnalyticalLinks.ToElements().Cast<AnalyticalLink>();
    int nAutoGeneratedLinks = 0;
    int nManualLinks = 0;
    foreach (AnalyticalLink alink in alinks)
    {
        if (alink.IsAutoGenerated() == true)
            nAutoGeneratedLinks++;
        else
            nManualLinks++;
    }
    string msg = "Auto-generated AnalyticalLinks: " + nAutoGeneratedLinks;
    msg += "\nManually created AnalyticalLinks: " + nManualLinks;
    TaskDialog.Show("AnalyticalLinks", msg);
}

Public Sub ReadAnalyticalLinks(document As Document)
    Dim collectorAnalyticalLinks As New FilteredElementCollector(document)
    collectorAnalyticalLinks.OfClass(GetType(AnalyticalLink))

    Dim alinks As IEnumerable(Of AnalyticalLink) = collectorAnalyticalLinks.ToElements().Cast(Of AnalyticalLink)()
    Dim nAutoGeneratedLinks As Integer = 0
    Dim nManualLinks As Integer = 0
    For Each alink As AnalyticalLink In alinks
        If alink.IsAutoGenerated() = True Then
            nAutoGeneratedLinks += 1
        Else
            nManualLinks += 1
        End If
    Next
    Dim msg As String = "Auto-generated AnalyticalLinks: " & nAutoGeneratedLinks
    msg += vbLf & "Manually created AnalyticalLinks: " & nManualLinks
    TaskDialog.Show("AnalyticalLinks", msg)
End Sub