Método Shell.TileVertically

Coloca todas las ventanas en el escritorio verticalmente. Este método tiene el mismo efecto que hacer clic con el botón derecho en la barra de tareas y seleccionar Ventanas de mosaico verticalmente.

Sintaxis

iRetVal = Shell.TileVertically()

Shell.TileVertically() As Integer

Parámetros

Este método no tiene parámetros.

Ejemplos

En el ejemplo siguiente se muestra TileVertically en uso. Se muestra un uso adecuado para JScript, VBScript y Visual Basic.

Jscript:

<script language="JScript">
    function fnShellTileVerticallyJ()
    {
        var objShell = new ActiveXObject("shell.application");
        
        objShell.TileVertically();
    }
</script>

Vbscript:

<script language="VBScript">
    function fnShellTileVerticallyVB()
        dim objShell
        
        set objShell = CreateObject("shell.application")
        objShell.TileVertically

        set objShell = nothing
    end function
 </script>

Visual Basic:

Private Sub fnShellTileVerticallyVB()
    Dim objShell As Shell
    
    Set objShell = New Shell
    objShell.TileVertically

    Set objShell = Nothing
End Sub

Requisitos