FilePageLoaded example for Visual Basic

' The following example loads the first five pages of a multipage file,
' and writes the individual pages as TIF files

Dim nCount As Integer

Private Sub LEAD1_FilePageLoaded()
Dim strFileName As String
nCount = nCount + 1
strFileName = "d:\erase\mpage" + CStr(nCount) + ".TIF"
LEAD1.Save strFileName, FILE_TIF, 0, 0, SAVE_OVERWRITE
End Sub

Private Sub Command8_Click()
nCount = 0
LEAD1.EnableFilePageLoadedEvent = True
LEAD1.Load "d:\work\images\mtif.tif", 0, 0, 5
LEAD1.EnableFilePageLoadedEvent = False
End Sub