¿Cómo lanzar un programa con SHELL desde VB6 y eliminar la barra de título de esa nueva ventana?

Tengo una pantalla con dos botones que permiten lanzar un programa cada uno y necesito ayuda para hacer que, al hacer click sobre algún botón, el programa lanzado sea ejecutado en una ventana maximizada y sin barra de título.

Hasta el momento sólo puedo controlar estos efectos en la aplicación lanzadora, pero es indispensable lograr lo mismo en las aplicaciones lanzadas.

Estoy utilizando el siguiente código en un botón, pero no logro el objetivo. Agradeceré mucho su ayuda:

Private Sub Activa_PROGRAMA_Click()
 Dim ValorDeRetorno
 ValorDeRetorno = Shell("c:\Program Files\programa.exe", vbMaximizedFocus)
Dim iEspera As Double
 For iEspera = 1 To 1000000
 Next iEspera
 Dim Formularios As Form
 For Each Formularios In Forms
 Formularios.BorderStyle = 0
 Next
End Sub

Añade tu respuesta

Haz clic para o