不注册调用ActiveX Dll

  If Not tFac Is Nothing Then
        tFac.CreateInstance Nothing, iid_iunknow, tUn
        Set tFac = Nothing
        Set tDem = tUn
        Set tUn = Nothing
        tDem.test
    End If
End If
Set tDem = Nothing
If tLib <> 0 Then FreeLibrary tLib

''一定要在所有对象都释放掉了才能使用FreeLibrary,不然会出错

将上面的代码修改一下,就可以很方便的在vb中使用函数指针了,hoho,vb可以用函数指针咯.