ASP.NET & PowerPoint - Create Multiple Slides

Imports Microsoft.Office.Interop.PowerPoint
Public Class AspNetPowerPointMultiSlides
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        '*** Constant ***'
        Const ppLayoutBlank = 12
        Const ppLayoutChart = 8
        Const ppLayoutChartAndText = 6
        Const ppLayoutClipartAndText = 10
        Const ppLayoutClipArtAndVerticalText = 26
        Const ppLayoutFourObjects = 24
        Const ppLayoutLargeObject = 15
        Const ppLayoutMediaClipAndText = 18
        Const ppLayoutMixed = -2
        Const ppLayoutObject = 16
        Const ppLayoutObjectAndText = 14
        Const ppLayoutObjectAndTwoObjects = 30
        Const ppLayoutObjectOverText = 19
        Const ppLayoutOrgchart = 7
        Const ppLayoutTable = 4
        Const ppLayoutText = 2
        Const ppLayoutTextAndChart = 5
        Const ppLayoutTextAndClipart = 9
        Const ppLayoutTextAndMediaClip = 17
        Const ppLayoutTextAndObject = 13
        Const ppLayoutTextAndTwoObjects = 21
        Const ppLayoutTextOverObject = 20
        Const ppLayoutTitle = 1
        Const ppLayoutTitleOnly = 11
        Const ppLayoutTwoColumnText = 3
        Const ppLayoutTwoObjects = 29
        Const ppLayoutTwoObjectsAndObject = 31
        Const ppLayoutTwoObjectsAndText = 22
        Const ppLayoutTwoObjectsOverText = 23
        Const ppLayoutVerticalText = 25
        Const ppLayoutVerticalTitleAndText = 27
        Const ppLayoutVerticalTitleAndTextOverChart = 28

        Dim ppApp As New Microsoft.Office.Interop.PowerPoint.Application
        Dim ppPres As Presentation
        Dim ppSlide1, ppSlide2, ppSlide3, ppSlide4 As Slide
        Dim ppName As String = "MyPP/MyPPt.ppt"

        ppPres = ppApp.Presentations.Add(1)

        ppSlide1 = ppPres.Slides.Add(1, ppLayoutTitle)
        ppSlide1.Shapes(1).TextFrame.TextRange.Text = "Welcome To"
        ppSlide1.Shapes(2).TextFrame.TextRange.Text = "www.ThaiCreate.Com" & vbCr & "Version 2009"


        ppSlide2 = ppPres.Slides.Add(2, ppLayoutTwoColumnText)
        ppSlide2.Shapes(1).TextFrame.TextRange.Text = "www.ThaiCreate.Com Version"
        ppSlide2.Shapes(2).TextFrame.TextRange.Text = "Version 2008" & vbCr & _
            "Version 2008" & vbCr & "Version 2008" & vbCr & "Version 2008"
        ppSlide2.Shapes(3).TextFrame.TextRange.Text = "Version 2009" & vbCr & _
            "Version 2009" & vbCr & "Version 2009" & vbCr & "Version 2009"

        ppSlide3 = ppPres.Slides.Add(3, ppLayoutTable)
        ppSlide3.Shapes(1).TextFrame.TextRange.Text = "We Love ThaiCreate.Com"

        ppSlide4 = ppPres.Slides.Add(4, ppLayoutTextAndChart)
        ppSlide4.Shapes(1).TextFrame.TextRange.Text = "We Love ThaiCreate.Com"
        ppSlide4.Shapes(2).TextFrame.TextRange.Text = "2005" & vbCr & "2006" & vbCr & "2007" & vbCr & "2008" & vbCr & "2009"


        ppApp.Presentations(1).SaveAs(Server.MapPath(ppName))
        ppApp.Quit()
        ppApp = Nothing

        Me.lblText.Text = "PowerPoint Created <a href=" & ppName & ">Click here</a> to Download."

    End Sub
End Class