SplashScreenManager - WaitForm (Show and Close)

Friend Sub WaitShow()
SplashScreenManager.ShowForm(My.Forms.AnaMenu1, GetType(WaitForm1), True, True, False)
End Sub

Friend Sub WaitClose()
SplashScreenManager.CloseForm(False)
End Sub

---

Private Sub GridView1_DoubleClick(sender As System.Object, e As System.EventArgs) Handles GridView1.DoubleClick
WaitShow()
doworkSome()
WaitClose()
End Sub