<!--
Sub MyColorChange()
Dim MyOver
Dim hexColor
Dim hexColor2
Dim hexColor3
Dim hexColor4
Dim hexColor5
hexColor=hex(rnd * 16777215)
if hexColor > "ffffff" then hexColor="ffffff"
hexColor2=hex(rnd * 16777215)
if hexColor2 > "ffffff" then hexColor2="ffffff"
hexColor3=hex(rnd * 16777215)
if hexColor3 > "ffffff" then hexColor3="ffffff"
hexColor4=hex(rnd * 16777215)
if hexColor4 > "ffffff" then hexColor4="ffffff"
hexColor5=hex(rnd * 16777215)
if hexColor5 > "ffffff" then hexColor5="ffffff"
MyOver = Int((5 * Rnd) + 1)
If MyOver = 1 Then
 document.bgcolor=hexColor
 document.fgcolor=hexColor2
 document.alinkcolor=hexColor3
 document.vlinkcolor=hexColor4
 document.linkcolor=hexColor5
ElseIf MyOver = 2 Then
 document.bgcolor=hexColor5
 document.fgcolor=hexColor4
 document.alinkcolor=hexColor3
 document.vlinkcolor=hexColor2
 document.linkcolor=hexColor
ElseIf MyOver = 3 Then
 document.bgcolor=hexColor2
 document.fgcolor=hexColor3
 document.alinkcolor=hexColor
 document.vlinkcolor=hexColor5
 document.linkcolor=hexColor4
ElseIf MyOver = 4 Then
 document.bgcolor=hexColor4
 document.fgcolor=hexColor
 document.alinkcolor=hexColor5
 document.vlinkcolor=hexColor2
 document.linkcolor=hexColor3
ElseIf MyOver = 5 Then
 document.bgcolor=hexColor3
 document.fgcolor=hexColor4
 document.alinkcolor=hexColor5
 document.vlinkcolor=hexColor
 document.linkcolor=hexColor2
End If
End Sub
//-->