Recipe calculator not working, no errors

Question

This is my coding for
my calculator to generate new quantities for a recipe. For some unknown reason, it will not display the new quantities in the second listbox. Any help would be greatly appreciated.
Public Class Form1
    Dim arrsize As Integer =
0
    Dim arrsize1 As Integer =
0
    Dim arrsize2 As Integer =
0
    Dim Ingredients1(2,
arrsize) As String
    Dim Ingredients2(2,
arrsize2) As String
    Dim inglist1 As String = "Ing,
Amount, Unit" & ControlChars.CrLf
    Dim inglist2 As String = "Ing,
Amount, Unit" & ControlChars.CrLf
    Dim calculation As Integer
    Private Sub AddIngButton_Click(sender As System.Object,
e As System.EventArgs)Handles AddIngButton.Click
            Ingredients1(0,
arrsize) = Ing.Text
            Ingredients1(1,
arrsize) = Amount.Text
            Ingredients1(2,
arrsize) = Unit.Text
            inglist1
= Ingredients1(0, arrsize) & ControlChars.Tab
& Ingredients1(1, arrsize) & ControlChars.Tab
& Ingredients1(2, arrsize)
            Ingredients1list.Items.Add(inglist1)
            ReDim Preserve Ingredients1(2,
arrsize)
            Ing.Text
= ""
            Amount.Text
= ""
            Unit.Text
= ""
    Private Sub CalcButton_Click(sender As System.Object,
e As System.EventArgs) HandlesCalcButton.Click
    do until arrsize1
= arrsize
                Ingredients2(0,
arrsize1) = Val(Ingredients1(0, arrsize1))
                calculation
= Val(Ingredients1(1, arrsize))
                calculation
= (calculation / OldNumServes.Text) * NewNumServes.Text
                Ingredients2(1,
arrsize1) = calculation
                Ingredients2(2,
arrsize1) = Val(Ingredients1(2, arrsize1))
                inglist2
= Ingredients2(0, arrsize) & ControlChars.Tab
& Ingredients2(1, arrsize) & ControlChars.Tab
& Ingredients2(2, arrsize)
                Ingredients2list.Items.Add(inglist2)
                arrsize1
= arrsize1 + 1
            Loop
    End Sub
End Class

Answer 1

Hi Jack,
I'm afraid that you posted your question on the wrong forum. This forum is dedicated to Project Online microsoft scheduling solution.
Please go there: http://social.technet.microsoft.com/Forums/en-us/home finding the right place for your question.
Cheers.
Guillaume Rouyre - MBA, MCP, MCTS