AddPage Example for Visual Basic

Private Sub Command1_Click()
   Dim nPageNumber As Long
   Dim nPageCount As Long
   Dim csBuffer As String
   Dim nRet As Long

   nPageNumber = 1
   nRet = RasterDoc.AddPage (LEADRasterView1.Raster, nPageNumber) 
   If nRet = 0 Then
      MsgBox ("The engine added a new page to the Document")
   Else
      MsgBox ("The engine could not add a new page to the Document")
   End If
   
   nPageCount = RasterDoc.PageCount
   MsgBox "The Number of Pages in the Document is: " + Str(nPageCount) 
End Sub