<head>
  <title>ResMon</title>
  <HTA:APPLICATION 
	ID = "ResMon"
    APPLICATIONNAME="ResMon"    
    SINGLEINSTANCE="yes"
	MAXIMIZEBUTTON = "no"
	SCROLL="no"
	ShowInTaskbar ="no"
	BORDER="none"	
	Version = "1.0">
	</HTA:APPLICATION>
</head>
 
<script language="VBScript">
	Sub Window_OnLoad()
window.setTimeout "SetColor "& 0 & "," & 0 & "," & 255,1, "vbscript"
	End Sub	
 
	'переводим число из RGB в Hex для HTML
	Function GetStrHex(i)
If i < 16 Then
	GetStrHex = "0" & Hex(i)
Else
	GetStrHex = Hex(i)
End If
	End Function
 
	'рекурсивная процедура изменения цвета
	Sub SetColor(x,y,z)
window.document.body.style.background = "#" & GetStrHex(x) & GetStrHex(y) & GetStrHex(z)
x = x + 1
z = z - 1
If z <> 0 Then window.setTimeout _
"SetColor " & x & "," & y & "," & z,5, "vbscript"
	End Sub	
</script> 
<body></body> 
</html>