Private Declare Function Ejecutar Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Ejecutar
Ejecutar(Me.hwnd, "open", "C:\A120IG.msi", "", "", 1)
End Sub