主题：请教:定时器

Sub dingshi0()  application.SetTimer 1,5000

End Sub

Sub APPLICATION_Timer(ID)
Order.HoldingInfo2 0,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin ,Code,Market
if sellhoding>0 then Order.Sellshort 1,1,0,0,Code,Market,"",0
if buyhoding>0 then Order.Sell 1,1,0,0,Code,Market,"",0
End Sub

VBA代码的意思是 平仓账户所有持仓
等平仓完毕之后，sellhoding 和 buyhoding 应该都为0，但是并不为0

导致 一直在发出平仓委托
请教,是写的有问题吗?