ATL中的代码类似:
//主要是为了传递BYTE数组 库名MyCtrl 对象名MyObj
Make(VARIANT byData)
//VB中调用
Dim a As MYCTRLLib.MyObj
Dim b(2) As Byte
b(0) = 97
b(1) = 98
b(2) = 99
a.Make b运行时错误信息为 Runtime error '91' Object Variable or With Block Variable not set
VC下调用无错

解决方案 »

  1.   

    Dim a As new MYCTRLLib.MyObj
      

  2.   

    to bboos(梧桐):
    Dim a As new MYCTRLLib.MyObj  
    Compile error invalid use of new keyword
      

  3.   

    Dim b(2) As Byte
    b(0) = 97
    b(1) = 98
    b(2) = 99
    dim c as variant
    c=b
    a.Make c
      

  4.   

    to viena(vienna维也纳)(胡逸之-贱人第二):
    还是
    Runtime error '91' Object Variable or With Block Variable not  set
      

  5.   

    已经解决  是VB调用代码写错
    少了个NEW