Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Load
' Mdi - Fenster wird erstellt
        Dim document As New frmStart
        document.MdiParent = Me
        document.Anchor = AnchorStyles.None
        document.Show()
' Position bestimmt
        document.Location = New Point((document.MdiParent.ClientSize.Width - _
          document.Width) / 2, (document.MdiParent.ClientSize.Height - _
          document.Height) / 2)
' 1 Sekunde warten
        Dim tt As New Timer
        tt.Interval = 1000
        tt.Start()
' Form schließen
        document.Close()
    End Sub

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE