for each frm as winform.form in Forms
if frm.Name <> "ddd" then
frm.Close
end if
next
forms("ddd").Open()
加好友 
发短信
Post By：2011/8/18 15:44:00 [显示全部帖子]
