How to get the count of links, images, buttons and edits in a web page using QTP

Write a Script to get the count of all the edits, images, buttons and links in a web page.

Before running the script in QTP the user needs to add the web page in the Object repository. Here we are using using differnet functions for each item to get the values.  

Function GetAllSpecificControls(Page, MicClass) Set Desc = Description.Create()
Desc("micclass").Value = MicClass
Set GetAllSpecificControls = Page.ChildObjects(Desc)
End Function

        Function GetAllEdits(Page)
        Set GetAllEdits = GetAllSpecificControls(Page, "WebEdit")
        End Function

             Function GetAllButtons(Page)
             Set GetAllButtons = GetAllSpecificControls(Page, "WebButton")
             End Function

Function GetAllLinks(Page)
Set GetAllLinks = GetAllSpecificControls(Page, "Link")
End Function

Function GetAllImages(Page)
Set GetAllImages = GetAllSpecificControls(Page, "Image")
End Function

Set oPage = Browser("Browser Name").Page("Page Name")
MsgBox "Number of Edits: " & GetAllEdits(oPage).Count
MsgBox "Number of Buttons: " & GetAllButtons(oPage).Count
MsgBox "Number of Links: " & GetAllLinks(oPage).Count
MsgBox "Number of Images: " & GetAllImages(oPage).Count