DrawPage Example for Visual Basic
Private Sub Command26_Click()
RasterDoc.ActivePageIndex = 0
RasterDoc.EnableShowZones = True
RasterDoc.SelectedZonePenStyle = PENSTYLE_SOLID
RasterDoc.SelectedZonePenWidth = 3
RasterDoc.SelectedZonePenColor = RGB(255, 0, 0)
RasterDoc.SetSelectedZonePen
RasterDoc.ZonePenStyle = PENSTYLE_SOLID
RasterDoc.ZonePenWidth = 3
RasterDoc.ZonePenColor = RGB(0, 0, 0)
RasterDoc.SetZonePen
RasterDoc.ScaleMode = SCALEMODE_PIXEL
RasterDoc.SourceLeft = 0
RasterDoc.SourceTop = 0
RasterDoc.SourceWidth = RasterDoc.PageWidth (0)
RasterDoc.SourceHeight = RasterDoc.PageHeight (0)
RasterDoc.SourceClipLeft = 0
RasterDoc.SourceClipTop = 0
RasterDoc.SourceClipWidth = 0
RasterDoc.SourceClipHeight = 0
RasterDoc.DestinationLeft = 0
RasterDoc.DestinationTop = 0
RasterDoc.DestinationWidth = RasterDoc.PageWidth (0)
RasterDoc.DestinationHeight = RasterDoc.PageHeight (0)
RasterDoc.DestinationClipLeft = 0
RasterDoc.DestinationClipTop = 0
RasterDoc.DestinationClipWidth = 0
RasterDoc.DestinationClipHeight = 0
RasterDoc.DrawPersistence = False
RasterDoc.SelectZone Null, hDC, 0, 0, True
RasterDoc.DrawPage Null, hDC, 0
End Sub