Does anyone out there know the code to put ascending numerical order into shapes for a lottery predictor i am building in vb6. many thanks in advance. bill underwood

How do we get from shapes to number? Otherwise if each shape has a value, then store the values in an array and sort then.

i think he is wondering how to create graphics. since you are wanting to use shapes, i can assume that your application is not using graphics (win32/mfc/or directx) so why not just put them into labels with a background color and border? ' note, tile is a label with a background color ' sized int a square and font size increased ' with a BorderStyle of SINGLE and  ' FLAT Appearance private sub GenerateTiles()     Dim MAX_TILE as integer          MAX_TILE = 30          Dim tileindex as integer     ' first unload all     for tileindex = 1 to tile.count-1         uload tile(tileindex)     next tileindex     ' next hide tile(0)     tile(0).visible = false     ' finally load the ones you want     for tileindex = 1 to MAX_TILE         load tile(tileindex)         tile(tileindex).captioin = tileindex     next tileindex End Sub private sub PickTiles()     Dim MAX_PICK as integer     DIM LEFT_START_POSITION as long      dim TOP_POSITION as long          TOP_POSITION = 100     LEFT_START_POSITION = 1560     MAX_PICK = 6          Dim tileindex as integer     Dim leftpos as long     dim randomnum as integer          for tileindex = 0 to MAX_PICK-1         randomnum = rnd(tile.count)         leftpos = START_LEFT_POSITION + (100 * tileindex)         Tile(randomnum).Left = leftpos         Tile(randomnum).top = TOP_POSITION         Tile(randomnum).visible = true     next tileindex End Sub Hope this helps, Chi They mostly come at night...mostly

Thanks for the replies, What i need is the code to sort 6 randomly selected numbers into ascending numerical order the other code i have managed to work out.If some one knows the code then the rest will be easy. Many thanks in advance. regards bill underwood

If you only have 6 items and they are being generated one at a time. I would use a modified bubble sort. Place the generated item at the end of the list and sort up to the beginning. The list is always sorted except when you add a new item. I use other dialects of BASIC rather than VB, so for sample code I would suggesting searching - VB6 array sort. Apparently VB.net may have the function built-in. Here is my example of sorting a 2 dim array after a random number selection. Part of my Powerbasic code. 14 lines. PRINT "Sorting List" FOR pass = 1 TO INT(SelectNeeded / 2) REM Up Sort FOR x = pass TO SelectNeeded - pass IF Choice(x, 1) > Choice((x + 1), 1) THEN SWAP Choice(x, 1), Choice((x + 1), 1) SWAP Choice(x, 2), Choice((x + 1), 2) END IF NEXT x REM Down Sort FOR y = SelectNeeded - pass TO 1 + pass STEP -1 IF Choice(y, 1) < Choice((y - 1), 1) THEN SWAP Choice(y, 1), Choice((y - 1), 1) SWAP Choice(y, 2), Choice((y - 1), 2) END IF NEXT y NEXT pass

here is vb6 code to perform an intelligent bubble sort: (most bubble sorts state the number of loops to take through the items as n-1...this one can take as few as 1 and as many as n-1...so potentially faster. You are fee to use this code any way you wish) Private Function SmartBubbleSort(ByRef Numbers() As Integer) As Long     Dim Upper As Long ' this will hold upper bound of array     Dim T As Long     ' this will be used in the for loop     Dim Swapped As Boolean ' this is the smart part     Dim TempNumber As Integer ' this will hold the number to be swapped     Dim TotalPasses As Long ' this is for reporting purposes only          Swapped = True ' initialise it     Upper = UBound(Numbers) - 1 ' find upper bounds of the array          TotalPasses = 0     Do While Swapped         TotalPasses = TotalPasses + 1         Swapped = False ' this is our exit condition         For T = 1 To Upper             If Numbers(T - 1) > Numbers(T) Then                 ' swap the numbers                 TempNumber = Numbers(T)                 Numbers(T) = Numbers(T - 1)                 Numbers(T - 1) = TempNumber                 Swapped = True             End If         Next T     Loop          SmartBubbleSort = TotalPasses      End Function Here is a complete project using this code: ' note there are two labels on the form ' both called label1 (it's a collection) ' and a button called command1 Private Sub Command1_Click()     Call SortEm End Sub Private Sub SortEm()     Dim Numbers(6) As Integer     For T = 0 To 5         Numbers(T) = Rnd(1) * 100     Next T          Call PrintNumbers(Label1(0), Numbers)     Form1.Caption = "Total Passes: " & SmartBubbleSort(Numbers)     Call PrintNumbers(Label1(1), Numbers) End Sub Private Sub PrintNumbers(ByRef objLabel As Label, ByRef Numbers() As Integer)     Dim T As Long     Dim Upper As Long     Upper = UBound(Numbers) - 1 ' find upper bounds of the array     objLabel.Caption = ""     For T = 0 To Upper         objLabel.Caption = objLabel.Caption & Numbers(T) & vbCrLf     Next T End Sub Private Function SmartBubbleSort(ByRef Numbers() As Integer) As Long     Dim Upper As Long ' this will hold upper bound of array     Dim T As Long     ' this will be used in the for loop     Dim Swapped As Boolean ' this is the smart part     Dim TempNumber As Integer ' this will hold the number to be swapped     Dim TotalPasses As Long ' this is for reporting purposes only          Swapped = True ' initialise it     Upper = UBound(Numbers) - 1 ' find upper bounds of the array          TotalPasses = 0     Do While Swapped         TotalPasses = TotalPasses + 1         Swapped = False ' this is our exit condition         For T = 1 To Upper             If Numbers(T - 1) > Numbers(T) Then                 ' swap the numbers                 TempNumber = Numbers(T)                 Numbers(T) = Numbers(T - 1)                 Numbers(T - 1) = TempNumber                 Swapped = True             End If         Next T     Loop          SmartBubbleSort = TotalPasses      End Function Hope this helps Chi They mostly come at night...mostly