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