Help With numbers please

[Guest_imported]

Hello i have nearly finished my programe excepct that i now need 6 random numbers to be in ascending order i.e. 2,8,14,45,47,49 not 49,8,14,47,45,2 ive been trying now for a couple of hours but cannot seem to get it to work i am only very new to programming but if i use a statement like this

dim swap as integer

if label1.caption > label2.caption then
swap = label1.caption
label1.caption = label2.caption
label2.caption = swap

please can anyone please help me .

 

[dpaulson]

try this
if val(label1.caption) > val(label2.caption) then


David Paulson

 

[Guest_imported]

Hi thank you for you'r Help but one more problem now all then numbers are in range i.e. 1 to 9 10 to 19 20 to 29 30 to 39 and 40 to 49 and all have different colors for there numbers like the lotery numbers but now the colors are all wrong ????

 

[dpaulson]

dim swap as integer
Dim colorswap As Long
if val(label1.caption) > val(label2.caption) then
swap = label1.caption
label1.caption = label2.caption
label2.caption = swap
colorswap = Label1.ForeColor
Label1.ForeColor = Label2.ForeColor
Label2.ForeColor = colorswap



David Paulson