在打开表单而不加载控件之前使用的启动画面

Question

我有一个需要加载的表单（需要从数据库中获取一些值）。

所以我做了一个简单的“请等待”启动画面，在表格融资之前显示它，关闭它并显示表格：

Dim sp As New SplashScreen2
sp.Show()
Dim a = New AsignarFormacionesUsuario(p)
a.Text = "Asignar formaciones a: " + p.NomComplet
a.Show()
sp.Close()

问题是启动画面没有正确显示控件：

应该是：

如果我删除了我的表格的融合和显示（以及关闭飞溅所以它不会立即关闭），它就会完美显示。

所以它似乎不是飞溅的问题，而是表单的实例化不会让飞溅正确加载。

我不知道该尝试什么，似乎我只需要实例来等待启动Show()。但它不应该等待吗？

Answer 1

Dim sp As New SplashScreen2  
sp.Show()  

sp.Update() 

Dim a = New AsignarFormacionesUsuario(p)