Formularios

Se puede cerrar un formulario mediante código VBScript, pulsando el botón cerrar o la cruz de la ventana.

 

Ver código ejemplo


Opción 1:
   'Pulsar el botón cerrar.
      Sub Cerrar()
      gForm.Controls("Botonera").botonexecute ("botCerrar")
     End sub


Opción 2:
   'Usando el shell de windows para simular el shortcut Alt+F4
    Sub Cerrar()
    Set oShell = CreateObject("WScript.Shell")
    oShell.SendKeys "%{f4}"
  End sub


Autor: Daniel Ernesto Lutz Llano