CreateObject Function

CreateObject( class )

Creates an OLE automation object.

    Sub Command1_Click()

        Dim word6 As object

        Set word6 = CreateObject("Word.Basic")

        word6.FileNewDefault

        word6.InsertPara

        word6.Insert "Attn:"

        word6.InsertPara

        word6.InsertPara

        word6.InsertPara

        word6.Insert "     Vendor Name: "

        word6.Bold 1

        name = "Some Body"

        word6.Insert name

        word6.Bold 0

        word6.InsertPara

        word6.Insert "      Vendor Address:"

        word6.InsertPara

        word6.Insert "      Vendor Product:"

        word6.InsertPara

        word6.InsertPara

        word6.Insert "Dear Vendor:"

        word6.InsertPara

        word6.InsertPara

        word6.Insert "The letter you are reading was created with BlueZone Basic."

        word6.Insert "Using OLE Automation, BlueZone Basic can call any other OLE"

        word6.Insert " enabled application. BlueZone Basic is a Basic Scripting "

        word6.Insert "language for applications."

        word6.InsertPara

        word6.InsertPara

        word6.Insert "     Product Name:  BlueZone Basic"

        word6.InsertPara

        word6.Insert "     Company Name:  BlueZone Software"

        word6.InsertPara

        word6.InsertPara

        MsgBox "You have just called Word 6.0 using OLE"

    End Sub