Ivor B Gun
Don Kiddick
Seymor Butts
Amanda Hugnkiss
I P Freely
Mike Hunt

Hrm so thats the colours then, right now for code:

' This function makes a string of a specified length containing the specified characters. This function avoides the need for loops
Public Function MakeStringOf(ByVal p_strChar As String, ByVal p_lngCount As Long) As String
Dim strReturn As String

' Check that the character is not blank and the length is greater than zero
If (p_strChar = "") Or (p_lngCount <= 0) Then
strReturn = ""
Else
' Make a string of spaces of the required length
strReturn = Space(p_lngCount)
If (p_strChar <> " ") Then
' Replace the spaces in the string with the specified character
strReturn = Replace(strReturn, " ", p_strChar)
End If
End If

MakeStringOf = strReturn
End Function



That was a lot of effort to do the coloring.' Make a string of spaces of the required length