2014年制作的简易打字小程序在新系统里无法运行

我试着在WIN7旗舰版上运行改程序,
结果出现如上图,
我试着把exe文件属性的兼容模式修改为WIN7,但仍然不行!
请教如何解决?
Private Sub Command1_Click() Shell "regsvr32 /s COMDLG32.OCX", vbHide '注册无提示 End Sub Private Sub Command2_Click() Shell "regsvr32 COMDLG32.OCX", vbHide '注册时有提示 End Sub可以试试