Sub MuestraOculta(Objeto)
Dim celda
If varType(Objeto)=vbObject Then
   For Each celda in Objeto:
      If celda.style.display="" Then
         celda.style.display="none"
      Else
         celda.style.display=""
      End If
   Next
Else
   If Objeto.style.display="" Then
      Objeto.style.display="none"
   Else
      Objeto.style.display=""
   End If
End If
End Sub

Sub swf301969_FSCommand(ByVal command, ByVal args)
    call swf301969_DoFSCommand(command, args)
end sub