为什么这段代码提示ActiveX部件不能创建对象

Question

我的vb只有下面代码，为什么运行时候提示 错误429，ActiveX部件不能创建对象
错误在Set   ie   =   CreateObject( "InternetExplorer.Application ") 
Private   Sub   Command1_Click() 
Set   ie   =   CreateObject( "InternetExplorer.Application ") 
ie.Navigate   "http://office.9zp.com " 
ie.Visible   =   True 
ie.FullScreen   =   True 
MsgBox   "P " 
ie.FullScreen   =   False End   Sub