首先，打开VB，新建一个ActiveDLL：
写入以下代码：
然后在（文件）菜单选择“生成PrjName.dll”。然后就可以在QTP里进行调用了。
假设此时把PrjName.dll改名了FileName.dll，如果此文件不是QTP所在机器生成的，需要用运行 regsvr32 进行注册（如运行regsvr32 f:FileName.dll）。
撤销注册运行 regsvr32 /u f:FileName.dll 。
然后直接在QTP里用CreateObject进行调用即可：
如此简直，就实在了QTP调用DLL。
当然，也可以用来声明非托管的动态链接库和API函数。