mshtml 中的 htmldocument 中的applets类如何使用？？

Question

Sub AppletsCollection()
'Returns the collection of all applets in the active document.    Dim objApp As FrontPage.Application
    Dim objAll As IHTMLElementCollection    Set objApp = FrontPage.Application
    'Reference the applets collection.
    Set objAll = FrontPage.ActiveDocument.applets    For i = 0 To objAll.Length - 1
        'Display names of all applets in collection.
        MsgBox "Element tag name: " & objAll.Item(i).Name
    Next iEnd Sub