need help with upgrade of from vb6 to vb.net

[trunxnirvana007]

'UPGRADE_WARNING: Array has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
'UPGRADE_WARNING: Couldn't resolve default property of object Label. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Label = New Object(){Box1, Box2, Box3, Box4, Box5, Box6, Box7, Box8, Box9, Box10, Box11, Box12, Box13, Box14, Box15, Box16, Box17, Box18, Box19, Box20, Box21, Box22}

'UPGRADE_WARNING: Array has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
'UPGRADE_WARNING: Couldn't resolve default property of object Numbers. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Numbers = New Object(){0.01, 0.1, 0.5, 1, 5, 10, 50, 100, 250, 500, 750, 1000, 3000, 5000, 10000, 15000, 20000, 35000, 50000, 75000, 100000, 250000}

For Index = 0 To 21
'UPGRADE_WARNING: Couldn't resolve default property of object Label(Index).Caption. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: Couldn't resolve default property of object Label().Visible. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
If Label(Index).Caption = YourBox.Text Then Label(Index).Visible = False
Next

Randomize()
'UPGRADE_WARNING: Couldn't resolve default property of object Chosen. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Chosen = Int(Rnd() * 22)
'UPGRADE_WARNING: Couldn't resolve default property of object Numbers(). Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
lbl1cash = Numbers(Chosen)

Do
Randomize()
'UPGRADE_WARNING: Couldn't resolve default property of object Chosen. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Chosen = Int(Rnd() * 22)
'UPGRADE_WARNING: Couldn't resolve default property of object Numbers(). Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
lbl2cash = Numbers(Chosen)
Loop While lbl2cash = lbl1cash

Do
Randomize()
'UPGRADE_WARNING: Couldn't resolve default property of object Chosen. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Chosen = Int(Rnd() * 22)
'UPGRADE_WARNING: Couldn't resolve default property of object Numbers(). Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
lbl3cash = Numbers(Chosen)
Loop While lbl3cash = lbl2cash Or lbl3cash = lbl1cash

Do
Randomize()
'UPGRADE_WARNING: Couldn't resolve default property of object Chosen. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Chosen = Int(Rnd() * 22)
'UPGRADE_WARNING: Couldn't resolve default property of object Numbers(). Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
lbl4cash = Numbers(Chosen)
Loop While lbl4cash = lbl3cash Or lbl4cash = lbl2cash Or lbl4cash = lbl1cash

Do
Randomize()
'UPGRADE_WARNING: Couldn't resolve default property of object Chosen. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Chosen = Int(Rnd() * 22)
'UPGRADE_WARNING: Couldn't resolve default property of object Numbers(). Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
lbl5cash = Numbers(Chosen)
Loop While lbl5cash = lbl4cash Or lbl5cash = lbl3cash Or lbl5cash = lbl2cash Or lbl5cash = lbl1cash

Do
Randomize()
'UPGRADE_WARNING: Couldn't resolve default property of object Chosen. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Chosen = Int(Rnd() * 22)
'UPGRADE_WARNING: Couldn't resolve default property of object Numbers(). Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
lbl6cash = Numbers(Chosen)
Loop While lbl6cash = lbl5cash Or lbl6cash = lbl4cash Or lbl6cash = lbl3cash Or lbl6cash = lbl2cash Or lbl6cash = lbl1cash

Do
Randomize()
'UPGRADE_WARNING: Couldn't resolve default property of object Chosen. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Chosen = Int(Rnd() * 22)
'UPGRADE_WARNING: Couldn't resolve default property of object Numbers(). Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
lbl7cash = Numbers(Chosen)
Loop While lbl7cash = lbl6cash Or lbl7cash = lbl5cash Or lbl7cash = lbl4cash Or lbl7cash = lbl3cash Or lbl7cash = lbl2cash Or lbl7

does anyone know how to resolve this

[dorinbogdan]

Try to rename the object Label used in:
If Label(Index).Caption =...
and the variable Index used in:
For Index = 0 To 21...

They are system keywords.