int BorderWidth = (this.Width - this.ClientSize.Width) / 2;

int TitlebarHeight = this.Height - this.ClientSize.Height - 2 * BorderWidth;

Dim BorderWidth As Integer = (Me.Width - Me.ClientSize.Width) / 2

Dim TitlebarHeight As Integer = Me.Height - Me.ClientSize.Height - 2 * BorderWidth

        'Definimos la ruta del archivo WORD a abrir

        Dim rutaArchivo As String = "c:/documento1.doc"

        'Definimos la ruta del archivo WORD a abrir

        Dim rutaArchivo2 As String = "c:/documento2.doc"

        'Creamos un objeto de aplicacion WORD

        Dim Documento As New Object

        Documento = CreateObject("Word.application")

        With (Documento)

            'Abrimos el Documento

            .Application.Documents.Open(rutaArchivo)

            'Comprobamos si el archivo existe

            If IO.File.Exists(rutaArchivo2) Then

                'Nos movemos al final del documento

                'WdUnits.wdStory = 6

                .Application.Selection.EndKey(6)

                'Insertamos una nueva página

                .Application.Selection.InsertNewPage()

                ' Anexamos el documento

                .Application.Selection.InsertFile(rutaArchivo2)

            Else

                MsgBox("No se ha encontrado el documento " & _

                rutaArchivo2, MsgBoxStyle.Exclamation, "Error")

            End If

            'Guardamos los cambios

            .Application.Documents.Save(True)

            'Cerramos el archivo

            .Application.Documents.Close()

            'Cerramos el Word

            .Application.Quit()

        End With

        'Liberamos la memoria destinada al WORD

        Documento = Nothing