Muchas gracias x todo, venga un saludo. ^_^
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúShell xd & " ", vbNormalFocus
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Dim X As Long
X = ShellExecute(Me.hwnd, "Open", "C:\Archivos de programa\Windows Media Player\wmplayer.exe", _
"", "", 1)
End Sub