Dim XPos
Dim StartPos
Dim AbsStart
Dim MinPos
Dim Frequence
Dim Direction
Dim EndSet
Dim FirstGo
Dim objArrow

EndSet=0
FirstGo=0
Frequence=10
AbsStart=300
StartPos=AbsStart
Xpos=StartPos
MinPos=55
Direction=-1
setTimeout "BounceArrow()",1
If isie then
	Set objArrow = window.createPopup()
	Set objArrowBody = objArrow.document.body
	objArrowBody.bgcolor="black"

	Dim LoadMsg
	LoadMsg="<TABLE bgcolor=""#c0c0c1""><TD><IMG SRC=""\Desktop\images\starthere.gif""</TABLE>"
	objArrowBody.innerHTML = LoadMsg
End If

Function BounceArrow()
	If NOT(isie) then Exit function
	If Frequence=0 And Xpos<=minPos Then
		If EndSet=1 Then
			objArrow.hide
			Exit Function
		End If
		EndSet=1
		setTimeout "BounceArrow()",2000
		Exit Function
	Else
		setTimeout "BounceArrow()",1
	End If

	If Xpos<minPos and Frequence<>0 Then 'Go back to the right
		Direction=1
		If FirstGo=0 Then
			AbsStart=AbsStart-(AbsStart/3)*2
			StartPos=AbsStart
			FirstGo=1
		Else
			StartPos=StartPos-CINT(AbsStart/Frequence)
		End If


		ElseIf Xpos>StartPos Then 'Go to the left
		Direction=-1
		If Frequence>0 Then
			Frequence=Frequence-1
		End IF
	End If
    objArrow.show XPos,2, 80, 18, document.body	
	XPos=XPos+(Direction*1)

End Function