Sub setUpVBCallback (flashId)
	ExecuteGlobal "Sub " & flashId & "_FSCommand(ByVal command, ByVal args)" & "FlashProxy.callJS command, args" & vbcrlf & "End Sub"
End Sub