Public Class Form1

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles lblMax.Click

    End Sub


    Private Sub lblNeed1_Click(sender As Object, e As EventArgs) Handles lblNeed1.Click

    End Sub

    Private Sub cmdOk_Click(sender As Object, e As EventArgs) Handles cmdOk.Click
        lblNeed1.Text = Int(tbMax1.Text) - Int(tbAlloc1.Text)
        lblNeed2.Text = Int(tbMax2.Text) - Int(tbAlloc2.Text)
        lblNeed3.Text = Int(tbMax3.Text) - Int(tbAlloc3.Text)
        lblNeed4.Text = Int(tbMax4.Text) - Int(tbAlloc4.Text)
        lblNeed5.Text = Int(tbMax5.Text) - Int(tbAlloc5.Text)

        If Int(txtAvailable1.Text) >= Int(lblNeed1.Text) Then
            lblAvailable2.Text = Int(txtAvailable1.Text) + Int(tbAlloc1.Text)
            lblAvailable3.Text = Int(lblAvailable2.Text) + Int(tbAlloc2.Text)
            lblAvailable4.Text = Int(lblAvailable3.Text) + Int(tbAlloc3.Text)
            lblAvailable5.Text = Int(lblAvailable4.Text) + Int(tbAlloc4.Text)
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class