PenWidth Example for Visual Basic

Dim RasterIO As New LEADRasterIO
Dim nRet As Integer
Dim Zo
omView As New LEADRasterZoomView

Unlock supportsubstitute the unlock support key for L_KEY_DOCUMENT
LEADRasterView1.
Raster.UnlockSupport L_SUPPORT_DOCUMENT, L_KEY_DOCUMENT
RasterIO.
Load LEADRasterView1.Raster, "c:\image1.cmp", 0, 0, 1

ZoomView.
SrcLeft = 0
ZoomView.
SrcTop = 0
ZoomView.
SrcWidth = 100 * 100
ZoomView.
SrcHeight = 100 * 100

ZoomView.
DstTop = 100 * 100
ZoomView.
DstLeft = 100 * 100
ZoomView.
DstWidth = 200 * 100
ZoomView.
DstHeight = 200 * 100

ZoomView.
BorderColor = RGB(255, 0, 0)
ZoomView.
BorderStyle = ZOOM_VIEW_BORDERSTYLE_TEAROUT or ZOOM_VIEW_BORDERSTYLE_SIMPLE
ZoomView.
PenWidth = 2

ZoomView.
SrcBorderColor = RGB(255, 0, 0)
ZoomView.
SrcBorderStyle = SOURCE_BORDERSTYLE_SIMPLE
ZoomView.
SrcPenWidth = 2

ZoomView.EnableCallouts = True
ZoomView.
CalloutColor = RGB(0, 0, 255)
ZoomView.
CalloutPenWidth = 2

ZoomView.ZoomFactor = 200
ZoomView.
Enabled = True
ZoomView.
ForceDst = True

nRet = LEADRasterView1.
CreateZoomView(ZoomView)