Imports Microsoft.SharePoint

using Microsoft.SharePoint;

Overloads Sub Main(args() As String)

    Dim siteCollection As New SPSite("http://Server_Name")
    Dim sites As SPWebCollection = siteCollection.AllWebs
    Dim site As SPWeb

    For Each site In  sites

        Dim lists As SPListCollection = site.Lists

        Console.WriteLine("Site: " + site.Name + "  Lists: " 
           + lists.Count.ToString())

    Next site

    Console.WriteLine("Press ENTER to continue")
    Console.ReadLine()

End Sub 'Main

static void Main(string[] args)
{
    SPSite siteCollection = new SPSite("http://Server_Name");
    SPWebCollection sites = siteCollection.AllWebs;

    foreach (SPWeb site in sites)
    {
        SPListCollection lists =  site.Lists;

        Console.WriteLine("Site: " + site.Name + "  Lists: " 
           + lists.Count.ToString());
    }

    Console.WriteLine("Press ENTER to continue");
    Console.ReadLine();
}