Listbox problem

See more:

VB

Why when i execute the program listbox1 doesnt contain the values from form 3 and also foodcharge doesnt have value.It only shows me the values from form1.is there any problem in the code?


Dim moviecharge As Double
Dim foodcharge As Double
Dim subtotal As Double
Dim taxes As Double
Dim total As Double

foodcharge = Val(Form3.lblTotaDrinkslFood.Text)
moviecharge = Val(Form1.lblCurrentotal.Text)

subtotal = Val(moviecharge + foodcharge)
taxes = Val(subtotal * 0.19)
total = Val(subtotal + taxes)

lblMoviecharge.Text = moviecharge
lblFoodcharge.Text = foodcharge
lblSubtotal.Text = subtotal
lblTaxes.Text = taxes
lblTotal.Text = total

Me.ListBox1.Items.AddRange(Form3.lsFoodandBaverages.Items)
Me.ListBox1.Items.AddRange(Form1.ListBox3.Items)



Or can somebody tell me how to get the all the values from Listbox to a variable