度重ね、お世話になります。

環境
OS:Windows XP/7/8/10   VB 6.0 VB歴は長いのですが詳しくはありません。

ショートカットからでは反映されませんにつきまして、ご質問致します。

概要
デスクトップのタスクバ(IEアイコン)起動では問題ありません。しかし
デスクトップ上のIEWebページ・アドレスバーからドラッグ&ドロップでデスクトップにショートカットを作成します。
そのショートカットから起動しますとOSによっては以下の参考ソフトが反映されません。
OS・・・反映されました(WindowsXP/7)
OS・・・反映されませんでした(Windows8.1/10)
IEバージョン・・・Windows7/8.1/10（IE11） WindowsXP(IE8)

反映されました(WindowsXP/7)
�@タイプは:IShellFolderViewDual2/3
�Aタイプは:HTMLDocument
�BIEみつけたよＸＸＸＸＸＸＸＸＸ

反映されませんでした(Windows8.1/10)
�@タイプは:IShellFolderViewDual3/3


質問
デスクトップに作成しましたショートカットから起動しますとOSによっては、反映されません。
違いの原因が分りません。OS仕様の違いによるもなのでしょうか。

ご教示願えますと幸いであります。


以下をそのまま参考ソフトにして実行しています。
http://ken3memo.hatenablog.com/entry/20110823/1314115156

'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
Option Explicit

Private Sub Command1_Click()
'オブジェクトを格納する変数
    Dim objShell As Object, objWindow As Object

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")
    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        MsgBox "タイプは:" & TypeName(objWindow.document)
        Debug.Print "タイプは:" & TypeName(objWindow.document)
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
            'URLとタイトルを表示する
            MsgBox "IEみつけたよ" & objWindow.document.Title
            Debug.Print "タイトル:" & objWindow.document.Title
            Debug.Print "URL:" & objWindow.document.URL
        End If
    Next
    Set objShell = Nothing
End Sub

'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'

他のショートカット作成方法で解決することができました。

ショートカット作成は常にアドレスバーからドラッグ&ドロップしてショートカットを作成する方法
で行っていました。今回、Webページを右クリックしてショートカットを作成する基本的な方法を知り
問題なくWindows8.1/10でも反映することができるようになりました。

お世話になりました。