Main.EmailField.Enabled = False
        Main.PasswordField.Enabled = False
        Main.LoginButton.Enabled = False

        Dim TabPage As New TabPage
        TabPage.Text = email.Split("@")(0)
        TabPage.Name = email
        Dim label1 As New MaterialSkin.Controls.MaterialLabel
        label1.Location = New Point(10, 10)
        label1.Size = New Size(250, 150)
        label1.Text = "Loading..."
        label1.Name = email & "acclabel"
        TabPage.Controls.Add(label1)
        Main.AccountsTab.TabPages.Add(TabPage)
        Main.AccountsTab.SelectTab(TabPage)
        If DoSomething(label1) Then 'tu wazne bo wykorzystuje labela
            'nothing
        Else
            Main.AccountsTab.TabPages.Remove(TabPage)
        End If
        Main.EmailField.Text = ""
        Main.PasswordField.Text = ""
        Main.EmailField.Enabled = True
        Main.PasswordField.Enabled = True
        Main.LoginButton.Enabled = True