Ventana de Ejecutar Programas.

Muestra la pantalla de Ejecutar Programa.

Option Explicit
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, _
            ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal szTitle As String, _
        ByVal szPrompt As String, ByVal uFlags As Long) As Long
Private Sub Form_Load()
    Dim RunPrompt As String, RunTitle As String
    Dim RunIndex As Long
    'RunPrompt => Texto de la ventana (""=default)
    'RunTitle  => Título de la ventana (""=default)
    'RunIndex  => Índice del ComboBox (-1=vacío)
    RunIndex = -1
    SHRunDialog hWnd, 0, 0, RunTitle, RunPrompt, RunIndex
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s