Public monitorbreite As Rectangle = Screen.PrimaryScreen.WorkingArea
Public moncenterhz As Integer = monitorbreite.Width / 2
Public moncentervert As Integer = monitorbreite.Height / 2
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        For Each ctl As Control In Me.Controls
            If TypeOf ctl Is MdiClient Then
                ctl.BackColor = Me.BackColor
            End If
        Next ctl
 
        Me.Size = New Size(monitorbreite.Width - 20, monitorbreite.Height - 20)
        Me.Location = New Point(moncenterhz - Me.Width / 2, moncentervert - _
          Me.Height / 2)
 
        AnimateWindow(Me.Handle, 500, Animflag.AW_VER_POSITIVE)
        start()

    Public Sub start()
 
        Dim startform As New frm_startform
        startform.MdiParent = Me
 
        Dim tbwi As Double = TableLayoutPanel1.Width     
        Dim sp0 As Double = TableLayoutPanel1.ColumnStyles(0).Width
        Dim sp2 As Double = TableLayoutPanel1.ColumnStyles(2).Width
 
        TableLayoutPanel1.Controls.Add(startform, 1, 1)
 
        AnimateWindow(startform.Handle, 1000, Animflag.AW_CENTER)
 
    End Sub