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