Private splash As startupform()
Private Sub New()
        splash = new startupform
        splash.Show()
        splash.Refresh()
 
initalize' oder wie die funktion auch immer heist
End Sub
 
PRivate Sub Form_Load()
    'hier machst Du wahrscheinlich deine datenabfragen
    'wenn fertig
    splash.hide
    splash.dispose
    splash = nothing
End Sub