Ti scrivo il codice che ho usato
codice:
Dim lettore As String = My.Application.Info.DirectoryPath & "\PPTVIEW.EXE"
'Dim ppviewer As String = "C:\Program Files\Microsoft Office\Office12\PPTVIEW.EXE"
Dim MyPSI As New ProcessStartInfo(lettore)
' MyPSI.Arguments = "c:\mypowerpoint.ppt"
Dim pres1 As String = My.Application.Info.DirectoryPath & "\presenta.ppt /s"
MyPSI.Arguments = pres1
Try
Dim MyProcess As Process = Process.Start(MyPSI)
'MyProcess.WaitForInputIdle()
Catch ex As Exception
End Try
'SetParent(MyProcess.MainWindowHandle, Panel1.Handle)
End Sub
Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseHover
Dim toolTip1 As New ToolTip()
toolTip1.SetToolTip(Me.Label1, "Presentazione")
End Sub
Ti ringrazio in anticipo