Imports System
Imports System.Collections.Generic
Imports Microsoft.SharePoint
Module ConsoleApp
Sub Main()
Using siteCollection As SPSite = New SPSite("http://localhost")
Using rootWeb As SPWeb = siteCollection.RootWeb
' Get the content type.
Dim contentType As SPContentType = _
rootWeb.AvailableContentTypes(SPBuiltInContentTypeId.Item)
'Get the usage collection.
Dim usages As IList(Of SPContentTypeUsage) = _
SPContentTypeUsage.GetUsages(contentType)
' Count the site and list types.
Dim listTypes As Integer = 0
Dim siteTypes As Integer = 0
For Each usage As SPContentTypeUsage In usages
If usage.IsUrlToList Then
listTypes += 1
Else
siteTypes += 1
End If
Next usage
Console.Write("The content type is inherited by {0} site content types", siteTypes)
Console.WriteLine(" and {0} list content types.", listTypes)
End Using
End Using
Console.Write(vbCrLf + "Press ENTER to continue...")
Console.ReadLine()
End Sub
End Module