as Variant ParamArray.Append 3 ParamArray.Append 2 Dim CB as New NekoCallback(Me,”AddNum",ParamArray) Dim Ans as Integer = CB.ReturnValue.IntegerValue //ଟ5 ྫ
Dim CB as New NekoCallback(AnObj,”AddNum”,Nil) AnObj = Nil //͠ଞ͔Βͷࢀর͕ͳ͍ͳΒ CB.Execute() //ԿݺΕͳ͍ ྫ ͜ΕΛऑࢀরʹ͢Δ͔ڧ͍ ʢ௨ৗͷʣࢀরʹ͢Δ͔ Dim CB as New NekoCallback(AnObj,”AddNum”,Nil,False) AnObj = Nil CB.Execute() //ݺΕΔ ྫ