ShellExecute

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()  
ShellExecute   Me.hwnd,   "open",   "c:\03.pps",   "",   "",   3  
End   Sub