DoubleClick:
Dim pg As WinForm.TabPage
pg = Forms("主窗体").Controls("页签").TabPages("WIFI信息查询")
pg.Visible = False '双击关闭当前页面