VB6は永遠に・・・！？

熟年エンジニア向け、VB6のお仕事を頂戴しましたorz
これを機に.NETに移行してくれないかなあと思いつつも、せっかくなのでVB6Runtimeのサポートがいつまで続くのかを調べてみました。

https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/visual-basic-6-support-policy

Windows10でのサポートは健在です。
Microsoftさすがです。
ではWindows10のサポートはいつまで続くのかというと・・・

https://support.microsoft.com/ja-jp/help/13853/windows-lifecycle-fact-sheet

エディションによって異なりますが、いまのところ最長はWindows 10 Enterprise 2016 LTSB エディション(企業向け固定化モデル)の2026年ということになります。
Windows 10 LTSBのリリースが今後もあるなら延長サポートの期限も伸びますので、
VB6RTのライフサイクルポリシーが変わらない限り当面サポートの終了はないということでファイナルアンサーでしょうか。

以下参考まで。
https://visualstudio.uservoice.com/forums/121579-visual-studio-ide/suggestions/12851976-congratulations-to-microsoft-for-extending-vb6-pro

Windows7 + VB6 で MSComctlLib を含むフォームのロードがコケる

大手電機メーカーのソフトウェアであっても製造の現場で安定して稼働しているシステムはいまだにVB6で作ったものだったりします。
今回もそんなVB6で構築したシステムのエンハンスで、.vbpファイルを開くとMSComctlLibを含むフォームのロードでエラーが出る状態だったため手っ取り早く対処します。

まずフォームをロードした時、VBがご丁寧に通知してくれるエラーログを確認します。

行 14: ｸﾗｽ MSComctlLib.Toolbar(ｺﾝﾄﾛｰﾙ Toolbar1) はﾛｰﾄﾞされていません。
行 140: ｸﾗｽ MSComctlLib.ImageList(ｺﾝﾄﾛｰﾙ ImageList1) はﾛｰﾄﾞされていません。
行 177: ｸﾗｽ MSComctlLib.StatusBar(ｺﾝﾄﾛｰﾙ StatusBar1) はﾛｰﾄﾞされていません。

続いてcmd.exeを「管理者として実行...」して、以下の3行をコピー&ペーストです。

regsvr32 /u /s C:\Windows\System32\MSCOMCTL.OCX
regsvr32 /s C:\Windows\System32\MSCOMCTL.OCX
C:\Windows\Microsoft.NET\Framework\v4.0.30319\regtlibv12.exe C:\Windows\system32\msdatsrc.tlb

あとはVB6 IDEのツールボックス上で右クリック⇒コンポーネントと進んで Microsoft Common Dialog Control 6.0 (SP6) をチェックして、 適用をクリックしてもエラーが出なければ・・・完。