Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        user = GetUserName()
        Set_FormSettings()
        Me.Hide()
    End Sub
 
    Private Sub Set_FormSettings()
        Me.Height = 420
        Me.Width = 300
        Me.ShowInTaskbar = False
        Dim working_area As Rectangle = SystemInformation.WorkingArea
        Dim x As Integer = working_area.Left + working_area.Width - Me.Width
        Dim y As Integer = working_area.Top + working_area.Height - Me.Height
        Me.Location = New Point(x, y)
        Me.ControlBox = False
        Me.Text = "Gruppenstatus"
    End Sub

Private Sub Settings_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
        CenterForm(Me)
        Me.ControlBox = False
        LoadOrga()
        LoadOrgaUser()
    End Sub
Public Sub CenterForm(ByVal F As Object)
        Dim working_area As Rectangle = SystemInformation.WorkingArea
        F.left = (working_area.Width - F.Width) / 2
        F.top = (working_area.Height - F.Height) / 2
    End Sub