PaintZoomFactor Example for Visual Basic

Private Sub TestPaintZoomFactor()
   RasterDoc.ActivePageIndex = 0
   RasterDoc.EnableShowZones = True

   RasterDoc.PutScaleMode 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

   If RasterDoc.PaintZoomFactor(0) <> 100# Then
      RasterDoc.PaintZoomFactor(0) = 100#
   End If

   RasterDoc.DrawPersistence = False
   RasterDoc.DrawPage Null, Me.hDC, 0
End Sub