Sub Object_OnScriptEnter
	filename = "YOUR FILENAME"
	Object.Command = Object.Directory & filename
End Sub

Sub Object_OnLButtonUp(x,y,d)
	If Not d Then
		Object.ExecuteCommand	
	End If
End Sub