The Zoom property specifies the surface's current zooming factor. The control fires the LayoutStartChanging(exSurfaceZoom) / LayoutEndChanging(exSurfaceZoom) event when the user zooms the surface. The ZoomLevels property specifies the zooming factors to be displayed on the control's toolbar. The ZoomMin, ZoomMax and ZoomStep determines the range of the zooming to be used, if the ZoomLevels property is empty. Use the ToolBarFormat property to customize the control's toolbar. The ZoomLevels property specifies the zooming factors to be displayed on the control's toolbar.  The AllowZoomSurface property specifies the combination of keys that allows the user to magnify or shrink the surface. The AllowZoomWheelSurface property specifies whether the user can zoom the surface by rotating the mouse wheel. 

The following samples shows how you can prevent zooming the surface:

VBA (MS Access, Excell...)

With SwimLane1
	.AllowZoomSurface = 0
	.AllowZoomWheelSurface = False
	.ToolBarFormat = "-1,100"
End With

VB6

With SwimLane1
	.AllowZoomSurface = exDisallow
	.AllowZoomWheelSurface = False
	.ToolBarFormat = "-1,100"
End With

VB.NET

With Exsurface1
	.AllowZoomSurface = exontrol.EXSWIMLANELib.AllowKeysEnum.exDisallow
	.AllowZoomWheelSurface = False
	.ToolBarFormat = "-1,100"
End With

VB.NET for /COM

With AxSwimLane1
	.AllowZoomSurface = EXSWIMLANELib.AllowKeysEnum.exDisallow
	.AllowZoomWheelSurface = False
	.ToolBarFormat = "-1,100"
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXSWIMLANELib' for the library: 'ExSwimLane 1.0 Control Library'

	#import <ExSwimLane.dll>
	using namespace EXSWIMLANELib;
*/
EXSWIMLANELib::ISwimLanePtr spSwimLane1 = GetDlgItem(IDC_SWIMLANE1)->GetControlUnknown();
spSwimLane1->PutAllowZoomSurface(EXSWIMLANELib::exDisallow);
spSwimLane1->PutAllowZoomWheelSurface(VARIANT_FALSE);
spSwimLane1->PutToolBarFormat(L"-1,100");

C++ Builder

SwimLane1->AllowZoomSurface = Exswimlanelib_tlb::AllowKeysEnum::exDisallow;
SwimLane1->AllowZoomWheelSurface = false;
SwimLane1->ToolBarFormat = L"-1,100";

C#

exswimlane1.AllowZoomSurface = exontrol.EXSWIMLANELib.AllowKeysEnum.exDisallow;
exswimlane1.AllowZoomWheelSurface = false;
exswimlane1.ToolBarFormat = "-1,100";

JavaScript

<OBJECT classid="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
	SwimLane1.AllowZoomSurface = 0;
	SwimLane1.AllowZoomWheelSurface = false;
	SwimLane1.ToolBarFormat = "-1,100";
</SCRIPT>

C# for /COM

axSwimLane1.AllowZoomSurface = EXSWIMLANELib.AllowKeysEnum.exDisallow;
axSwimLane1.AllowZoomWheelSurface = false;
axSwimLane1.ToolBarFormat = "-1,100";

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	exswimlane1.AllowZoomSurface(0/*exDisallow*/);
	exswimlane1.AllowZoomWheelSurface(false);
	exswimlane1.ToolBarFormat("-1,100");
}

Delphi 8 (.NET only)

with AxSwimLane1 do
begin
	AllowZoomSurface := EXSWIMLANELib.AllowKeysEnum.exDisallow;
	AllowZoomWheelSurface := False;
	ToolBarFormat := '-1,100';
end

Delphi (standard)

with SwimLane1 do
begin
	AllowZoomSurface := EXSWIMLANELib_TLB.exDisallow;
	AllowZoomWheelSurface := False;
	ToolBarFormat := '-1,100';
end

VFP

with thisform.SwimLane1
	.AllowZoomSurface = 0
	.AllowZoomWheelSurface = .F.
	.ToolBarFormat = "-1,100"
endwith

dBASE Plus

local oSwimLane

oSwimLane = form.Activex1.nativeObject
oSwimLane.AllowZoomSurface = 0
oSwimLane.AllowZoomWheelSurface = false
oSwimLane.ToolBarFormat = "-1,100"

XBasic (Alpha Five)

Dim oSwimLane as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.AllowZoomSurface = 0
oSwimLane.AllowZoomWheelSurface = .f.
oSwimLane.ToolBarFormat = "-1,100"

Visual Objects

oDCOCX_Exontrol1:AllowZoomSurface := exDisallow
oDCOCX_Exontrol1:AllowZoomWheelSurface := false
oDCOCX_Exontrol1:ToolBarFormat := "-1,100"

PowerBuilder

OleObject oSwimLane

oSwimLane = ole_1.Object
oSwimLane.AllowZoomSurface = 0
oSwimLane.AllowZoomWheelSurface = false
oSwimLane.ToolBarFormat = "-1,100"

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowZoomSurface to OLEexDisallow
	Set ComAllowZoomWheelSurface to False
	Set ComToolBarFormat to "-1,100"
End_Procedure

XBase++

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:AllowZoomSurface := 0/*exDisallow*/
		oSwimLane:AllowZoomWheelSurface := .F.
		oSwimLane:ToolBarFormat := "-1,100"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN