Sub setUpVBCallback(flashId)
	ExecuteGlobal "Sub " & flashId & _
	    "_FSCommand(ByVal command, ByVal args)" & _
 		"FlashProxy.callJS command, args" & vbcrlf & _
 		"End Sub"
End Sub<!-- x4.maps.sp1.yahoo.com compressed/chunked Thu Aug 13 12:39:42 PDT 2009 -->