Private Sub Command1_Click()
Cls
Picture1.Cls
Randomize
Dim m(1 To 10)
For i = 1 To 10
m(i) = Fix(Rnd(1) * 200) + 50
Next i
Picture1.Scale (0, 250)-(400, 0)
x = 50
For i = 1 To 10
Picture1.Line (x, 0)-(x + 30, m(i)), vbBlue, BF
Picture1.Line (x, 0)-(x + 30, m(i)), vbBlack, B
Picture1.PSet (x + 2, 20), vbBlue
Picture1.Print (m(i))
x = x + 30
Next i

Cls
Picture2.Cls

For i = 1 To 10
For j = 1 To 9
If m(j) > m(j + 1) Then
r = m(j)
m(j) = m(j + 1)
m(j + 1) = r
End If
Next j
Next i

Picture2.Scale (0, 250)-(400, 0)
x = 50
For i = 1 To 10
Picture2.Line (x, 0)-(x + 30, m(i)), vbBlue, BF
Picture2.Line (x, 0)-(x + 30, m(i)), vbBlack, B
Picture2.PSet (x + 2, 20), vbBlue
Picture2.Print (m(i))
x = x + 30
Next i
End Sub