NeilClayton

Hi I think this is how i would write it: [CODE] Dim customer As String Dim TOTAL, parts, labor As Double labor = CDbl(Txthour.Text * 35) parts = CDbl(Txtpart.Text + 5) Total = labor + parts customer = txtname.text lstResult.Items.Clear() lstResult.Items.add("customer" & customer) lstResult.Items.add("Labor cost" & labor) lstResult.Items.add("Parts Cost" & …

Is this what you mean, [CODE] Dim test As System.Drawing.Size test.Width = 400 test.Height = 200 ListView1.Size = test [/CODE] This will set the width to 400 and height to 200 on a listview I hope this helps. Neil

Ok I think i see the error you mean. You can but you cannot give it an initial size. Try this [CODE]Structure Product_Reccord Dim PNames() as string end structure [/CODE] You could then do [CODE] Dim test As Product_Reccord ReDim preserve test.PNames(3) test.PNames(1) = "I think this might just work" …