Private Sub PPT_Click()
On Error GoTo Err_PPT_Click
Dim stAppName As String
' stAppName = "c:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE C:\Documents and Settings\spetrovic\Desktop\Program\Odmor.ppt"
stAppName = "c:\Program Files\Microsoft Office\OFFICE11\PPTVIEW.EXE C:\Documents and Settings\spetrovic\Desktop\Program\Odmor.ppt"
Call Shell(stAppName, 1)
Exit_PPT_Click:
Exit Sub
Err_PPT_Click:
MsgBox Err.Description
Resume Exit_PPT_Click
End Sub