WinActivate("RP_")
Sleep(750)
If WinActive("RP_") Then
	WinSetState("RP_","",@SW_Maximize)
	ChangeColor()
Else
	WinActivate("ESI_")
	Sleep(750)
	If WinActive("ESI_") Then
		WinSetState("ESI_","",@SW_Maximize)
		ChangeColor()
	Else
		WinActivate("MikeBee_")
		Sleep(750)
		If WinActive("MikeBee_") Then
			WinSetState("MikeBee_","",@SW_Maximize)
			ChangeColor()
		EndIf
	EndIf
EndIf

Exit

Func ChangeColor()
	Send("!W")
	Sleep(250)
	Send("{Tab 19}")
	Sleep(250)
	Send("{Enter}");Change Color
	
	Sleep(3250)
	
	Send("{Tab 26}")
	Sleep(250)
	Send("{Enter}") ;Color
	Sleep(3250)
	
	Send("{Tab 27}")
	Sleep(250)
	Send("{Enter}") ;page 2
	Sleep(3250)
	
	Send("{Tab 30}")
	Sleep(250)
	Send("{Enter}") ;OliveGrunge
	Sleep(3250)	
EndFunc