回调函数就以普通函数(Public Function...)来写就可以
AB_RealDataCallBack这个参数类型在vb2010里写成Integer,传参时写AddressOf 回调函数名 传给这个参数就行