Sub delk_Block()
Set Block = CreateObject("Stock.Block")
Dim my_Array
Set my_Array = CreateObject("Stock.ArrayString")
call Block.GetTypeBlock("自选",my_Array)
for i = 0 to my_Array.count-1
call Block.open(my_Array.getat(i),1)
if Block.Count()=0 then
application.MsgOut "删除:"&my_Array.getat(i)
call Block.DeleteBlock ("自选",my_Array.getat(i))
end if
next
set Block = nothing
set my_Array = nothing