folder = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
Dim filename As String = "colours.txt"
filename = folder & "\" & filename
Dim oreader As System.IO.StreamReader
oreader = New IO.StreamReader(filename, True)
sLine = oreader.ReadLine()
For i = 0 To Colour.GetUpperBound(0) - 1
For j = 0 To Colour.GetUpperBound(0) - 1
If Colour(j) > Colour(j + 1) Then
Colour(j) = Colour(j + 1)
Dim ostreamer As System.IO.StreamWriter
ostreamer = New IO.StreamWriter(filename, True)
ostreamer.WriteLine(Colour(i))
Do While oreader.EndOfStream = False
sLine = oreader.ReadLine()