Código:
Private Sub Command1_Click()
Dim RetVal
RetVal = Shell("C:\Archivos de programa\Microsoft Office\Office11\winword", vbMaximizedFocus)
End Sub
vbHide 0
Se oculta Windows y se pasa el foco a la ventana oculta.
vbNormalFocus 1
Windows recupera el foco y vuelve a su posición y tamaño original.
vbMinimizedFocus 2
Windows se muestra como un icono con foco.
vbMaximizedFocus 3
Windows se maximiza con foco.
vbNormalNoFocus 4
Windows vuelve al tamaño y posición más recientes. La ventana activa actual permanece activa.
vbMinimizedNoFocus 6
Windows se muestra como un icono. La ventana activa actual permanece activa.