By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,853 Members | 938 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,853 IT Pros & Developers. It's quick & easy.

need help with upgrade of from vb6 to vb.net

P: 2
'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
Feb 20 '07 #1
Share this Question
Share on Google+
1 Reply


dorinbogdan
Expert 100+
P: 839
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.
Feb 20 '07 #2

Post your reply

Sign in to post your reply or Sign up for a free account.