Windows10 + VB6で GetObject (, "visio.application") するとオートメーションエラー

Question

前提・実現したいこと

VB6でVisioを自動操作するアプリケーションがあります。
以前はWindows7で動かしていたのですが、サポート終了に伴い、
Windows10への移行をしております。
ところがWindows10で動作確認を行っていると、
Visioインスタンスの取得箇所でエラーになります。

なお、Windows10化に伴い現状プログラム修正はしておりません。

【稼働環境】
Windows 10 64bit
VB6
Visio 2010

発生している問題・エラーメッセージ

メッセージ：オートメーションエラーです。
　　　　　　ライブラリは登録されていません。
エラー番号：-2147319779

該当のソースコード

Dim appVisio As Visio.Application
Set appVisio = GetObject(, "visio.application")

試したこと

エラーメッセージから何となく、いずれかのDLLが足りていないものと推測しましたが、
どのDLLが不足しているのか、ErrオブジェクトのDescriptionプロパティを参照しても記述されておらず、
同調査したらいいのかもわからない状態です。

補足情報（FW/ツールのバージョンなど）

GetObjectはVisioが起動した状態で実行しております。

Comments

[YAmaGNZ]

visioは64ビット版でしょうか、32ビット版でしょうか。

[Dockyou]

visio は32ビット版です。

[Dockyou]

試したことの追記です。
当アプリケーションのセットアップログに記述されているdllおよびocxをsyswow64のregsvr32を利用して、
レジストリの解除/登録をしてみました。
結果は変わらずでした。

[dodox86]

ターゲットのWindows10マシン上には開発環境はありますでしょうか？ オブジェクトブラウザーの「COM」で確認したときにVisioのコンポーネントが登録されていることが前提だと思います。