Cita:
Iniciado por David el Grande 
¿Cómo lo intentaste? ¿Qué es exactamente lo que no puedes o no entiendes cómo hacer?
Trato de hacerlo con el siguiente codigo:
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()
Text2.Text = Text2.Text + Text1.Text + ".pps"
ShellExecute Me.hwnd, "Open", "C:\Presentaciones\", "", "", 1
Text2.Text = "C:\Presentaciones\"
End Sub
Pero no me funciona, que puedo hacer?