一下代码
obj=Createobject("MSComDlg.CommonDialog.1")
obj.Flags = 524288 + 512 + 4
obj.Filter = "文件类型(*.*)|*.*"
obj.FileName = "2010年4月21日"
obj.maxFileSize=10000
obj.ShowOpen()
Self=obj.FileName+CHR(0)
注册完comdlg32.ocx控件，使用时提示 class is not licensed for use
仍然不能使用，为什么
------解决方案--------------------------------------------------------
将下列内容粘贴到一文本文件内并保存为 aaa.reg，双击导入注册表即可：
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Licenses\4D553650-6ABE-11cf-8ADB-00AA00C00905]
@="gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj"