Visual Basic

Private Function CalculateRoundOffAmount(ByVal autoCalculateRoundOff As Boolean) As Double
        
        Dim result As Double = 0.0
        
        result += CDbl(Me.TbRoundOff.Text)
        Dim roundOff As Double = 0
        Dim roundedOffTo As Double = 0
        If autoCalculateRoundOff = True Then
            roundOff = Math.Ceiling(result) - result
        Else
            roundOff = Me.TbRoundOff.Text
        End If
        roundedOffTo = result + roundOff
        Me.TbRoundOff.Text = roundOff
        Me.TbInvoiceValue.Text = roundedOffTo
        Return roundedOffTo
    End Function

Private Sub Wait1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProfileSetup.Show()
        ProfileSetup.Visible = False
    End Sub

Private Sub ProfileSetup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Visible = False
        TextBox1.ReadOnly = True
        TextBox1.Enabled = False
        TextBox2.ReadOnly = True
        TextBox2.Enabled = False
        TextBox3.ReadOnly = True
        TextBox3.Enabled = False
        TextBox4.ReadOnly = True
        TextBox4.Enabled = False
        TabControl1.Hide()
        GroupBox1.Hide()
        TabControl1.SendToBack()
        GroupBox1.SendToBack()
        CheckForIllegalCrossThreadCalls = False
        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    TextBox1.Text = UsersTableAdapter1.LoggedInUser(True)
    TextBox2.Text = UsersTableAdapter1.PasswordGet(TextBox1.Text)
    TextBox3.Text = UsersTableAdapter1.EmailGet(TextBox1.Text)
    Variables.avatar = PictureBox1.BackgroundImage
    original = PictureBox1.BackgroundImage
    previous = PictureBox202
    PictureBox202.Hide()
    TextBox4.Text = UsersTableAdapter1.RankGet(UsersTableAdapter1.LoggedInUser(True))
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        Wait1.Close()
        Me.Visible = True
    End Sub