主题：页面加载太慢，导致数据 出问题

当点击“采购商数据”的按钮，以一下的方式打开窗口 ，当时我疯狂点击按钮时，页面加载有问题，原本可以出的数据，没有出来，还报错，这种问题怎么解决。

窗口的内容要5秒才全部展示，我再这5秒内疯狂点击按钮打开窗口，会报错

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim Name As String = "供应商数据"
    tab.TabPages.Add(name,name)
    Dim pb = tab.BaseControl
    Forms(Name).OPEN(-1000,-1500)
    Forms(Name).BaseForm.TopLevel = False
    Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
    Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
    PB.TabPages(name).Controls.Clear
    PB.TabPages(name).Controls.add(Forms(Name).BaseForm)
    tab.SelectedPage = tab.TabPages(name)