Code: Select all
type wsp
as ushort ws_pntr
as ushort val
end type
type act
as ushort index
as string name
as ushort TimeCost
as ushort EffortCost
as ushort NumOfReqWS
as wsp ReqWS(3)
as ushort NumOfEffWS
as wsp EffWS(3)
as string LocReqName
as ushort LocReqPntr
end type
dim as act Actions(20)
sub test(byref array() as act)
' do stuff to the arry passed in here
end sub
test(Actions())
sleep
end