dim itemcount as integer
for itemcount = 1 to c.count
‘判断f是否在forms中，如果在则删除掉
if f.name = ctype(c.item(itemcount), form).name then
c.remove(itemcount)
exit for
end if
next
end sub
