<!--
'---Sub Gets This Parameters : ...
'...("SRCPath^Target^TopPos^LeftPos^WindowWidth^WindowHeight^ShowTitlebar^ShowMenuBar^ShowToolBar^ShowLocation^ShowStatusBar^ShowScrollBars^Resizable") As String
Public Sub NavigateURL(WindowProp)
	On Error Resume Next
	Target="_blank" : TopPos=0 : LeftPos=0 : WindowWidth="" : WindowHeight=""
	ShowTitleBar="Yes" : ShowMenuBar="Yes" : ShowToolBar="Yes" : ShowLocation="Yes" : ShowStatusBar="Yes" : ShowScrollBars="Yes" : Resizable="Yes"
	Var = Split(WindowProp,"^")
	SRCPath = Var(0)
	If Len(SRCPath) < 3 Then Exit Sub
	If Var(1)  <> "*" Then Target = Var(1)
	If Var(2)  <> "*" Then TopPos = Var(2)
	If Var(3)  <> "*" Then LeftPos = Var(3)
	If Var(4)  <> "*" Then WindowWidth = Var(4)
	If Var(5)  <> "*" Then WindowHeight = Var(5)
	If Var(6)  <> "*" Then ShowTitleBar = Var(6)
	If Var(7)  <> "*" Then ShowMenuBar = Var(7)
	If Var(8)  <> "*" Then ShowToolBar = Var(8)
	If Var(9)  <> "*" Then ShowLocation = Var(9)
	If Var(10) <> "*" Then ShowStatusBar = Var(10)
	If Var(11) <> "*" Then ShowScrollBars = Var(11)
	If Var(12) <> "*" Then Resizable = Var(12)
	Features = "top=" & TopPos & ",left=" & LeftPos & ",width=" & WindowWidth & ",height=" & WindowHeight & ",titlebar=" & ShowTitleBar &_
	",menubar=" & ShowMenuBar & ",toolbar=" & ShowToolBar & ",location=" & ShowLocation & ",status=" & ShowStatusBar &_
	",scrollbars=" & ShowScrollBars & ",resizable=" & Resizable
	window.open SRCPath,Target,Features
End Sub
'---Sub Gets This Parameters : ("ImgID^EffectID^SourcePictureSRC^TargetPictureSRC") As String 
Private Sub ImgEffectOn(ImgEf)
	Var = Split(ImgEf,"^")
	document.all(Var(0)).style.borderStyle="Solid"
	document.all(Var(0)).style.borderWidth=1
	document.all(Var(0)).style.borderColor="#3300ff"
	If Var(1) = "*" Then 
		EffectID = Int((Rnd() * 18) + 1)
	Else
		EffectID = Var(1)
	End If
	If Var(2) <> "*" Then TargetPictureSRC = Var(2) Else TargetPictureSRC=document.all(Var(0)).src
	document.all(Var(0)).style.filter=FindEffectFilter(EffectID)
	document.all(Var(0)).filters.item(0).Apply()
	document.all(Var(0)).src = TargetPictureSRC
    document.all(Var(0)).filters.item(0).Play()
End Sub
'---Sub Gets This Parameters : ("ImgID^EffectID^SourcePictureSRC^TargetPictureSRC") As String 
Private Sub ImgEffectOff(ImgEf)
	Call Randomize
	Var = Split(ImgEf,"^")
	document.all(Var(0)).style.borderStyle="Solid"
	document.all(Var(0)).style.borderWidth=1
	document.all(Var(0)).style.borderColor="#696969"
	If Var(1) = "*" Then 
		EffectID = Int((Rnd() * 22) + 1)
	Else
		EffectID = Var(1)
	End If
	If Var(3) <> "*" Then SourcePictureSRC = Var(3) Else SourcePictureSRC=document.all(Var(0)).src
	document.all(Var(0)).style.filter=FindEffectFilter(EffectID)
	document.all(Var(0)).filters.item(0).Apply()
	document.all(Var(0)).src = SourcePictureSRC
    document.all(Var(0)).filters.item(0).Play()
End Sub
'---Sub Gets This Parameters : ("ImgID^EffectID") As String 
Private Sub ImgEffectFilter(ImgEf)
	Var = Split(ImgEf,"^")
	EffectID =  Var(1)
	document.all(Var(0)).style.filter=FindEffectFilter(EffectID)
	document.all(Var(0)).filters.item(0).Apply()
End Sub
'---Sub Gets This Parameters : ("ImgID^SourceX^SourceY^TargetX^TargetY^iRed^iGreen^iBlue^iStrength^iSpread") As String
'---Number Of Params = 10
Private Sub ImgLightFilter(ImgEf)
	Call Randomize
	SX=5 : SY=5 : SZ=3 : TX=Int((Rnd() * 500) + 100) : TY=Int((Rnd() * 500) + 100)
	iRed=Int((Rnd() * 255)) : iGreen=Int((Rnd() * 255)) : iBlue=Int((Rnd() * 255))
	iStrength=Int((Rnd() * 90) + 10) : iSpread=Int((Rnd() * 300) + 300) :
	Var = Split(ImgEf,"^")
	If Var(1) <> 0 Then SX = Var(1)
	If Var(2) <> 0 Then SY = Var(2)
	If Var(3) <> 0 Then TX = Var(3)
	If Var(4) <> 0 Then TY = Var(4)
	If Var(5) <> 0 Then iRed = Var(5)
	If Var(6) <> 0 Then iGreen = Var(6)
	If Var(7) <> 0 Then iBlue = Var(7)
	If Var(8) <> 0 Then iStrength = Var(8)
	If Var(9) <> 0 Then iSpread = Var(9)
	document.all(Var(0)).style.filter=FindEffectFilter(20)
	document.all(Var(0)).filters.item(0).Apply()
	document.all(Var(0)).filters.item(0).clear()
	document.all(Var(0)).filters.item(0).addcone SX,SY,SZ,TX,TY,iRed,iGreen,iBlue,iStrength,iSpread
End Sub
'---This Function Returns Effect Filter String
Private Function FindEffectFilter(EffectID)
	If EffectID = 1 Then 
		Filters="progid:DXImageTransform.Microsoft.Blinds(Bands=10,direction=up); "
	ElseIf	EffectID = 2 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.Checkerboard(Direction=right,SquaresX=2,SquaresY=10); "
	ElseIf	EffectID = 3 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=50); "
	ElseIf	EffectID = 4 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=10); "
	ElseIf	EffectID = 5 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.Slide(slidestyle=SWAP,Bands=1); "
	ElseIf	EffectID = 6 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Slide(slidestyle=PUSH,Bands=30); "
	ElseIf	EffectID = 7 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Stretch(stretchstyle=PUSH); "
	ElseIf	EffectID = 8 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Stretch(stretchstyle=SPIN); "
	ElseIf	EffectID = 9 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.GradientWipe(GradientSize=1.00,wipestyle=0,motion=reverse); "
	ElseIf	EffectID = 10 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.GradientWipe(GradientSize=1.00,wipestyle=0,motion=reverse); "
	ElseIf	EffectID = 11 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Inset(); "
	ElseIf	EffectID = 12 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Iris(irisstyle=DIAMOND,motion=out); "
	ElseIf	EffectID = 13 Then
		'Filters=Filters & "progid:DXImageTransform.Microsoft.RadialWipe(wipestyle=RADIAL); "
		Filters=Filters & "progid:DXImageTransform.Microsoft.Alpha(Opacity=40, FinishOpacity=40,Style=1, StartX=0,  FinishX=100, StartY=0, FinishY=100); "
	ElseIf	EffectID = 14 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.RandomBars(); "
	ElseIf	EffectID = 15 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.RandomDissolve(); "
	ElseIf	EffectID = 16 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Fade(duration=3)"
	ElseIf	EffectID = 17 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Fade(Overlap=1.00); "
	ElseIf	EffectID = 18 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Spiral(GridSizeX=16,GridSizeY=16); "
	ElseIf	EffectID = 19 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Strips(motion=leftdown); "
	ElseIf	EffectID = 20 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Wheel(spokes=10); "
	'ElseIf	EffectID =  Then
		'Filters=Filters & "progid:DXImageTransform.Microsoft.Alpha(Opacity=80, FinishOpacity=80,Style=1, StartX=0,  FinishX=100, StartY=0, FinishY=100)"
	ElseIf	EffectID = 21 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Zigzag(GridSizeX=16,GridSizeY=8); "
	ElseIf	EffectID = 22 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.blur(pixelradius=0.7, makeshadow='True', ShadowOpacity=0.5); " 
	ElseIf  EffectID = 23 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(GradientType=1, startColorstr=#ff000000, endColorstr=#ffb222222); "
	ElseIf  EffectID = 24 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(GradientType=1, startColorstr=#00ffbb00, endColorstr=#ff696969); "
	ElseIf  EffectID = 25 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(GradientType=0, startColorstr=#ff696969, endColorstr=#00ffbb00); "
	ElseIf  EffectID = 26 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(GradientType=0, startColorstr=#00ffbb00, endColorstr=#ff696969); "
	ElseIf  EffectID = 27 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(startColorstr=#550000FF, endColorstr=#55FFFF00); "
	ElseIf  EffectID = 28 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(startColorstr=#550000FF, endColorstr=#55FFFF00); "
	ElseIf  EffectID = 29 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.gradient(startColorstr=#550000FF, endColorstr=#55FFFF00); "
	'---ImgLightFilter
	ElseIf	EffectID = 30 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.Light(enabled=1); " 
	ElseIf	EffectID = 31 Then 
		Filters=Filters & "progid:DXImageTransform.Microsoft.Chroma(Color='black')"
	ElseIf	EffectID = 32 Then 
		Filters=Filters & "alpha(opacity=100, finishopacity=70, style=2, startx=0, starty=0, finishx=50, finishy=50); " 
	ElseIf	EffectID = 33 Then 
		Filters=Filters & "mask(color=#ffffff); " 
	ElseIf	EffectID = 34 Then 
		Filters=Filters & "glow(color=#ff8000, strength=5); " 
	ElseIf	EffectID = 35 Then 
		Filters=Filters & "alpha(opacity=100, finishopacity=10, style=2, startx=0, starty=0, finishx=50, finishy=50); " 
	ElseIf	EffectID = 36 Then 
		Filters=Filters & "blur; " 
	ElseIf	EffectID = 37 Then 
		Filters=Filters & "shadow(color=#666666, direction=135); " 
	ElseIf	EffectID = 38 Then 
		Filters=Filters & "dropshadow(color=#999999, offx=3, offy=3, positive=true); " 
	ElseIf	EffectID = 39 Then 
		Filters=Filters & "wave(strength=1); " 
	ElseIf	EffectID = 40 Then 
		'---------
	End If
	FindEffectFilter = Filters
End Function
-->