'---Sub Gets This Parameters : ...
'...("BoxID,SimBoxName") As String
Public Sub VisInvisBox(BoxID)
	On Error Resume Next
	Dim SimBoxName
	If Instr(BoxID,"^")>0 Then
		SimBoxName=Mid(BoxID,Instr(BoxID,"^")+1,len(BoxID))
		For Each TBox In document.getElementsByName(SimBoxName)
			TBox.style.display="none"
		Next 
		BoxID=Mid(BoxID,1,Instr(BoxID,"^")-1)
	End If
	If document.all(BoxID).style.display="none" Then 
		document.all(BoxID).style.display=""
	Else
		document.all(BoxID).style.display="none"
	End If
	For Counter=1 To 10
		document.all("icopart" & Counter).style.display=""
		'document.all("icopart" & Counter).style.backgroundPositionY="0"
	Next 
	BoxIconID = Replace(BoxID,"txt","ico")
	document.all(BoxIconID).style.display="none"
	'document.all(BoxIconID).style.backgroundPositionY="-20"
	BoxImgID = Replace(BoxID,"txt","img")
	document.all(BoxID).style.filter=FindEffectFilter(3)
	document.all(BoxID).filters.item(0).Apply()
	document.all(BoxID).filters.item(0).Play()
	Call ChangeVisInVisBoxImg(BoxImgID)
End Sub
Sub ChangeVisInVisBoxImg(BoxImgID)
	CurrentBGImg = document.all(BoxImgID).CurrentStyle.backgroundImage
	cssText = "background-position: center top;	background-image: url(../Images/XXXVisInvisIcon.XXX);" & _
			  "cursor: hand; background-repeat: no-repeat;" & _
			  "height: 12px;"
	If Instr(LCase(CurrentBGImg),"collapse.") Then
		cssText=Replace(cssText,"XXXVisInvisIcon.XXX","Box-expand.gif")
	ElseIf Instr(LCase(CurrentBGImg),"expand.") Then
		cssText=Replace(cssText,"XXXVisInvisIcon.XXX","Box-collapse.gif")
	End If
	document.all(BoxImgID).runtimestyle.cssText=cssText
End Sub
'...("SRCPath^Target_vArgIn^OP_M_ML^TopPos^LeftPos^WindowWidth^WindowHeight^ShowTitlebar_Center^ShowMenuBar_Hide^ShowToolBar_Edge^ShowLocation_Help^ShowStatusBar^ShowScrollBars^Resizable^Unadorned") As String
Public Sub NavigateURL(WindowProp)
	On Error Resume Next
	Target="_blank" : Mode="OP": TopPos=0 : LeftPos=0 : WindowWidth="" : WindowHeight=""
	ShowTitlebar_Center="Yes" : ShowMenuBar_Hide="Yes" : ShowToolBar_Edge="Yes" : ShowLocation_Help="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_vArgIn = Var(1)
	If Var(2)  <> "*" Then Mode = Var(2)
	If Var(3)  <> "*" Then TopPos = Var(3)
	If Var(4)  <> "*" Then LeftPos = Var(4)
	If Var(5)  <> "*" Then WindowWidth = Var(5)
	If Var(6)  <> "*" Then WindowHeight = Var(6)
	If Var(7)  <> "*" Then ShowTitlebar_Center = Var(7)
	If Var(8)  <> "*" Then ShowMenuBar_Hide = Var(8)
	If Var(9)  <> "*" Then ShowToolBar_Edge = Var(9) '---(edge:{sunken | raised})
	If Var(10) <> "*" Then ShowLocation_Help = Var(10)
	If Var(11) <> "*" Then ShowStatusBar = Var(11)
	If Var(12) <> "*" Then ShowScrollBars = Var(12)
	If Var(13) <> "*" Then Resizable = Var(13)
	If Var(14) <> "*" Then Unadorned= Var(14)
	
	Features = "top=" & TopPos & ",left=" & LeftPos & ",width=" & WindowWidth & ",height=" & WindowHeight & ",titlebar=" & ShowTitlebar_Center &_
	",menubar=" & ShowMenuBar_Hide & ",toolbar=" & ShowToolBar & ",location=" & ShowLocation & ",status=" & ShowStatusBar &_
	",scrollbars=" & ShowScrollBars & ",resizable=" & Resizable
	'----------------------------------------------------------
	'Options = "dialogTop:" & TopPos  & ";dialogLeft:" & LeftPos & ";dialogWidth:" & WindowWidth & ";dialogHeight:" & WindowHeight &_
	'";center:" & ShowTitlebar_Center & ";dialogHide:" & ShowMenuBar_Hide & ";edge:" & ShowToolBar_Edge & ";help:" & ShowLocation_Help &_
	'";status:" & ShowStatusBar & ";scroll:" & ShowStatusBar & ";resizable:" & Resizable & ";unadorned" & Unadorned
	If UCase(Mode)="OP" Then window.open SRCPath,Target_vArgIn,Features
	If UCase(Mode)="M" Then window.showModelDialog SRCPath,Target_vArgIn, _
	"dialogTop:" & TopPos  & ";dialogLeft:" & LeftPos & ";dialogWidth:" & WindowWidth & ";dialogHeight:" & WindowHeight &_
	";center:" & ShowTitlebar_Center & ";dialogHide:" & ShowMenuBar_Hide & ";edge:" & ShowToolBar_Edge & ";help:" & ShowLocation_Help &_
	";status:" & ShowStatusBar & ";scroll:" & ShowStatusBar & ";resizable:" & Resizable & ";unadorned" & Unadorned
	If UCase(Mode)="ML" Then window.showModelessDialog SRCPath,Target_vArgIn, _ 
	"dialogTop:" & TopPos  & "px;dialogLeft:" & LeftPos & "px;dialogWidth:" & WindowWidth & "px;dialogHeight:" & WindowHeight &_
	"px;center:" & ShowTitlebar_Center & ";dialogHide:" & ShowMenuBar_Hide & ";edge:" & ShowToolBar_Edge & ";help:" & ShowLocation_Help &_
	";status:" & ShowStatusBar & ";scroll:" & ShowStatusBar & ";resizable:" & Resizable & ";unadorned" & Unadorned
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 = 80 Then
		Filters=Filters & "progid:DXImageTransform.Microsoft.Fade(duration='.5',overlap='1', center='0'); "
	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=#444444, strength=3); " 
	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=#444444, offx=-2, offy=2, positive=true); " 
	ElseIf	EffectID = 39 Then 
		Filters=Filters & "wave(strength=1); " 
	ElseIf	EffectID = 40 Then 
		'---------
	End If
	FindEffectFilter = Filters
End Function