event Timer (TickCount as Long)
Occurs when the interval elapses.

TypeDescription
TickCount as Long A Long expression that specifies the number of milliseconds that have elapsed since the system was started, up to 49.7 days.
The Timer event occurs when the timer interval elapses. The TimerInterval property returns or sets the number of milliseconds between calls of control's Timer event. You can use the Timer event to perform different actions on any layer when a specified time elapsed. For instance, you can rotate the layer every second, or any dial of a clock, and so on. 

The FormatABC method formats the A,B,C values based on the giving expression and returns the result.

You can use any of the following properties to update the layer:

 The Change event occurs when the layer's value is changed.

Syntax for Timer event, /NET version, on: 

private void Timer(object sender,int   TickCount)
{
}


Private Sub Timer(ByVal sender As System.Object,ByVal TickCount As Integer) Handles Timer
End Sub

Syntax for Timer event, /COM version, on: 

private void Timer(object sender, AxEXGAUGELib._IGaugeEvents_TimerEvent e)
{
}


void OnTimer(long   TickCount)
{
}


void __fastcall Timer(TObject *Sender,long   TickCount)
{
}


procedure Timer(ASender: TObject; TickCount : Integer);
begin
end;


procedure Timer(sender: System.Object; e: AxEXGAUGELib._IGaugeEvents_TimerEvent);
begin
end;


begin event Timer(long  TickCount)

end event Timer


Private Sub Timer(ByVal sender As System.Object, ByVal e As AxEXGAUGELib._IGaugeEvents_TimerEvent) Handles Timer
End Sub


Private Sub Timer(ByVal TickCount As Long)
End Sub


Private Sub Timer(ByVal TickCount As Long)
End Sub


LPARAMETERS TickCount



PROCEDURE OnTimer(oGauge,TickCount)

RETURN

Syntax for Timer event, /COM version (others), on: 

<SCRIPT EVENT="Timer(TickCount)" LANGUAGE="JScript">
</SCRIPT>


<SCRIPT LANGUAGE="VBScript">
Function Timer(TickCount)
End Function
</SCRIPT>


Procedure OnComTimer Integer   llTickCount
	Forward Send OnComTimer llTickCount
End_Procedure


METHOD OCX_Timer(TickCount) CLASS MainDialog
RETURN NIL


void onEvent_Timer(int   _TickCount)
{
}


function Timer as v (TickCount  as  N)
end function


function nativeObject_Timer(TickCount)
return

The following samples show how you can rotate the first visible layer every second:

VBA (MS Access, Excell...)

' Timer event - Occurs when the interval elapses.
Private Sub Gauge1_Timer(ByVal TickCount As Long)
	With Gauge1
		With .Layers.Item("rotateOnTimer")
			.RotateAngle = Gauge1.FormatABC("A + 5",.Layers.Item("rotateOnTimer").RotateAngle)
			Debug.Print( TickCount )
		End With
	End With
End Sub

With Gauge1
	.DefaultLayer(185) = 1
	.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob"
	.PicturesName = "`Layer` + int(value  + 1) + `.png`"
	.Layers.Count = 11
	.Layers.Item(0).Key = "rotateOnTimer"
	.TimerInterval = 1000
End With

VB6

' Timer event - Occurs when the interval elapses.
Private Sub Gauge1_Timer(ByVal TickCount As Long)
	With Gauge1
		With .Layers.Item("rotateOnTimer")
			.RotateAngle = Gauge1.FormatABC("A + 5",.Layers.Item("rotateOnTimer").RotateAngle)
			Debug.Print( TickCount )
		End With
	End With
End Sub

With Gauge1
	.DefaultLayer(exDefLayerRotateType) = 1
	.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob"
	.PicturesName = "`Layer` + int(value  + 1) + `.png`"
	.Layers.Count = 11
	.Layers.Item(0).Key = "rotateOnTimer"
	.TimerInterval = 1000
End With

VB.NET

' Timer event - Occurs when the interval elapses.
Private Sub Exgauge1_Timer(ByVal sender As System.Object,ByVal TickCount As Integer) Handles Exgauge1.Timer
	With Exgauge1
		With .Layers.Item("rotateOnTimer")
			.RotateAngle = Exgauge1.FormatABC("A + 5",.Layers.Item("rotateOnTimer").RotateAngle)
			Debug.Print( TickCount )
		End With
	End With
End Sub

With Exgauge1
	.set_DefaultLayer(exontrol.EXGAUGELib.DefaultLayerPropertyEnum.exDefLayerRotateType,1)
	.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob"
	.PicturesName = "`Layer` + int(value  + 1) + `.png`"
	.Layers.Count = 11
	.Layers.Item(0).Key = "rotateOnTimer"
	.TimerInterval = 1000
End With

VB.NET for /COM

' Timer event - Occurs when the interval elapses.
Private Sub AxGauge1_Timer(ByVal sender As System.Object, ByVal e As AxEXGAUGELib._IGaugeEvents_TimerEvent) Handles AxGauge1.Timer
	With AxGauge1
		With .Layers.Item("rotateOnTimer")
			.RotateAngle = AxGauge1.FormatABC("A + 5",.Layers.Item("rotateOnTimer").RotateAngle)
			Debug.Print( e.tickCount )
		End With
	End With
End Sub

With AxGauge1
	.set_DefaultLayer(EXGAUGELib.DefaultLayerPropertyEnum.exDefLayerRotateType,1)
	.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob"
	.PicturesName = "`Layer` + int(value  + 1) + `.png`"
	.Layers.Count = 11
	.Layers.Item(0).Key = "rotateOnTimer"
	.TimerInterval = 1000
End With

C++

// Timer event - Occurs when the interval elapses.
void OnTimerGauge1(long   TickCount)
{
	/*
		Copy and paste the following directives to your header file as
		it defines the namespace 'EXGAUGELib' for the library: 'ExGauge 1.0 Control Library'
		#import <ExGauge.dll>
		using namespace EXGAUGELib;
	*/
	EXGAUGELib::IGaugePtr spGauge1 = GetDlgItem(IDC_GAUGE1)->GetControlUnknown();
	EXGAUGELib::ILayerPtr var_Layer = spGauge1->GetLayers()->GetItem("rotateOnTimer");
		var_Layer->PutRotateAngle(spGauge1->FormatABC(L"A + 5",->GetLayers()->GetItem("rotateOnTimer")->GetRotateAngle(),vtMissing,vtMissing));
		OutputDebugStringW( L"TickCount" );
}

EXGAUGELib::IGaugePtr spGauge1 = GetDlgItem(IDC_GAUGE1)->GetControlUnknown();
spGauge1->PutDefaultLayer(EXGAUGELib::exDefLayerRotateType,long(1));
spGauge1->PutPicturesPath(L"C:\\Program Files\\Exontrol\\ExGauge\\Sample\\Design\\Circular\\Knob");
spGauge1->PutPicturesName(L"`Layer` + int(value  + 1) + `.png`");
spGauge1->GetLayers()->PutCount(11);
spGauge1->GetLayers()->GetItem(long(0))->PutKey("rotateOnTimer");
spGauge1->PutTimerInterval(1000);

C++ Builder

// Timer event - Occurs when the interval elapses.
void __fastcall TForm1::Gauge1Timer(TObject *Sender,long   TickCount)
{
	Exgaugelib_tlb::ILayerPtr var_Layer = Gauge1->Layers->get_Item(TVariant("rotateOnTimer"));
		var_Layer->RotateAngle = ->FormatABC(L"A + 5",TVariant(Gauge1->Layers->get_Item(TVariant("rotateOnTimer"))->RotateAngle),TNoParam(),TNoParam());
		OutputDebugString( L"TickCount" );
}

Gauge1->DefaultLayer[Exgaugelib_tlb::DefaultLayerPropertyEnum::exDefLayerRotateType] = TVariant(1);
Gauge1->PicturesPath = L"C:\\Program Files\\Exontrol\\ExGauge\\Sample\\Design\\Circular\\Knob";
Gauge1->PicturesName = L"`Layer` + int(value  + 1) + `.png`";
Gauge1->Layers->Count = 11;
Gauge1->Layers->get_Item(TVariant(0))->set_Key(TVariant("rotateOnTimer"));
Gauge1->TimerInterval = 1000;

C#

// Timer event - Occurs when the interval elapses.
private void exgauge1_Timer(object sender,int   TickCount)
{
	exontrol.EXGAUGELib.Layer var_Layer = exgauge1.Layers["rotateOnTimer"];
		var_Layer.RotateAngle = exgauge1.FormatABC("A + 5",.Layers["rotateOnTimer"].RotateAngle,null,null);
		System.Diagnostics.Debug.Print( TickCount.ToString() );
}
//this.exgauge1.Timer += new exontrol.EXGAUGELib.exg2antt.TimerEventHandler(this.exgauge1_Timer);

exgauge1.set_DefaultLayer(exontrol.EXGAUGELib.DefaultLayerPropertyEnum.exDefLayerRotateType,1);
exgauge1.PicturesPath = "C:\\Program Files\\Exontrol\\ExGauge\\Sample\\Design\\Circular\\Knob";
exgauge1.PicturesName = "`Layer` + int(value  + 1) + `.png`";
exgauge1.Layers.Count = 11;
exgauge1.Layers[0].Key = "rotateOnTimer";
exgauge1.TimerInterval = 1000;

JScript/JavaScript

<BODY onload="Init()">
<SCRIPT FOR="Gauge1" EVENT="Timer(TickCount)" LANGUAGE="JScript">
	var var_Layer = Gauge1.Layers.Item("rotateOnTimer");
		var_Layer.RotateAngle = Gauge1.FormatABC("A + 5",.Layers.Item("rotateOnTimer").RotateAngle,null,null);
		alert( TickCount );
</SCRIPT>

<OBJECT CLASSID="clsid:91628F12-393C-44EF-A558-83ED1790AAD3" id="Gauge1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Gauge1.DefaultLayer(185) = 1;
	Gauge1.PicturesPath = "C:\\Program Files\\Exontrol\\ExGauge\\Sample\\Design\\Circular\\Knob";
	Gauge1.PicturesName = "`Layer` + int(value  + 1) + `.png`";
	Gauge1.Layers.Count = 11;
	Gauge1.Layers.Item(0).Key = "rotateOnTimer";
	Gauge1.TimerInterval = 1000;
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Gauge1_Timer(TickCount)
	With Gauge1
		With .Layers.Item("rotateOnTimer")
			.RotateAngle = Gauge1.FormatABC("A + 5",.Layers.Item("rotateOnTimer").RotateAngle)
			alert( TickCount )
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:91628F12-393C-44EF-A558-83ED1790AAD3" id="Gauge1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Gauge1
		.DefaultLayer(185) = 1
		.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob"
		.PicturesName = "`Layer` + int(value  + 1) + `.png`"
		.Layers.Count = 11
		.Layers.Item(0).Key = "rotateOnTimer"
		.TimerInterval = 1000
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

// Timer event - Occurs when the interval elapses.
private void axGauge1_Timer(object sender, AxEXGAUGELib._IGaugeEvents_TimerEvent e)
{
	EXGAUGELib.Layer var_Layer = axGauge1.Layers["rotateOnTimer"];
		var_Layer.RotateAngle = axGauge1.FormatABC("A + 5",.Layers["rotateOnTimer"].RotateAngle,null,null);
		System.Diagnostics.Debug.Print( e.tickCount.ToString() );
}
//this.axGauge1.Timer += new AxEXGAUGELib._IGaugeEvents_TimerEventHandler(this.axGauge1_Timer);

axGauge1.set_DefaultLayer(EXGAUGELib.DefaultLayerPropertyEnum.exDefLayerRotateType,1);
axGauge1.PicturesPath = "C:\\Program Files\\Exontrol\\ExGauge\\Sample\\Design\\Circular\\Knob";
axGauge1.PicturesName = "`Layer` + int(value  + 1) + `.png`";
axGauge1.Layers.Count = 11;
axGauge1.Layers[0].Key = "rotateOnTimer";
axGauge1.TimerInterval = 1000;

X++ (Dynamics Ax 2009)

// Timer event - Occurs when the interval elapses.
void onEvent_Timer(int   _TickCount)
{
	COM com_Layer;
	anytype var_Layer;
	;
	var_Layer = COM::createFromObject(exgauge1.Layers()).Item("rotateOnTimer"); com_Layer = var_Layer;
		com_Layer.RotateAngle(exgauge1.FormatABC("A + 5",.Layers().Item("rotateOnTimer").RotateAngle()));
		print( _TickCount );
}

public void init()
{
	COM com_Layer;
	anytype var_Layer;
	;

	super();

	exgauge1.DefaultLayer(185/*exDefLayerRotateType*/,COMVariant::createFromInt(1));
	exgauge1.PicturesPath("C:\\Program Files\\Exontrol\\ExGauge\\Sample\\Design\\Circular\\Knob");
	exgauge1.PicturesName("`Layer` + int(value  + 1) + `.png`");
	exgauge1.Layers().Count(11);
	var_Layer = COM::createFromObject(exgauge1.Layers()).Item(COMVariant::createFromInt(0)); com_Layer = var_Layer;
	com_Layer.Key("rotateOnTimer");
	exgauge1.TimerInterval(1000);
}

Delphi 8 (.NET only)

// Timer event - Occurs when the interval elapses.
procedure TWinForm1.AxGauge1_Timer(sender: System.Object; e: AxEXGAUGELib._IGaugeEvents_TimerEvent);
begin
	with AxGauge1 do
	begin
		with Layers.Item['rotateOnTimer'] do
		begin
			RotateAngle := .FormatABC('A + 5',TObject(AxGauge1.Layers.Item['rotateOnTimer'].RotateAngle),Nil,Nil);
			OutputDebugString( e.tickCount );
		end;
	end
end;

with AxGauge1 do
begin
	set_DefaultLayer(EXGAUGELib.DefaultLayerPropertyEnum.exDefLayerRotateType,TObject(1));
	PicturesPath := 'C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob';
	PicturesName := '`Layer` + int(value  + 1) + `.png`';
	Layers.Count := 11;
	Layers.Item[TObject(0)].Key := 'rotateOnTimer';
	TimerInterval := 1000;
end

Delphi (standard)

// Timer event - Occurs when the interval elapses.
procedure TForm1.Gauge1Timer(ASender: TObject; TickCount : Integer);
begin
	with Gauge1 do
	begin
		with Layers.Item['rotateOnTimer'] do
		begin
			RotateAngle := .FormatABC('A + 5',OleVariant(Gauge1.Layers.Item['rotateOnTimer'].RotateAngle),Null,Null);
			OutputDebugString( TickCount );
		end;
	end
end;

with Gauge1 do
begin
	DefaultLayer[EXGAUGELib_TLB.exDefLayerRotateType] := OleVariant(1);
	PicturesPath := 'C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob';
	PicturesName := '`Layer` + int(value  + 1) + `.png`';
	Layers.Count := 11;
	Layers.Item[OleVariant(0)].Key := 'rotateOnTimer';
	TimerInterval := 1000;
end

VFP

*** Timer event - Occurs when the interval elapses. ***
LPARAMETERS TickCount
	with thisform.Gauge1
		with .Layers.Item("rotateOnTimer")
			.RotateAngle = thisform.Gauge1.FormatABC("A + 5",.Layers.Item("rotateOnTimer").RotateAngle)
			DEBUGOUT( TickCount )
		endwith
	endwith

with thisform.Gauge1
	.Object.DefaultLayer(185) = 1
	.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob"
	.PicturesName = "`Layer` + int(value  + 1) + `.png`"
	.Layers.Count = 11
	.Layers.Item(0).Key = "rotateOnTimer"
	.TimerInterval = 1000
endwith

dBASE Plus

/*
with (this.EXGAUGEACTIVEXCONTROL1.nativeObject)
	Timer = class::nativeObject_Timer
endwith
*/
// Occurs when the interval elapses.
function nativeObject_Timer(TickCount)
	local var_Layer
	oGauge = form.EXGAUGEACTIVEXCONTROL1.nativeObject
	var_Layer = oGauge.Layers.Item("rotateOnTimer")
		var_Layer.RotateAngle = oGauge.FormatABC("A + 5",.Layers.Item("rotateOnTimer").RotateAngle)
		? Str(TickCount) 
return

local oGauge

oGauge = form.EXGAUGEACTIVEXCONTROL1.nativeObject
oGauge.Template = [DefaultLayer(185) = 1] // oGauge.DefaultLayer(185) = 1
oGauge.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob"
oGauge.PicturesName = "`Layer` + int(value  + 1) + `.png`"
oGauge.Layers.Count = 11
oGauge.Layers.Item(0).Key = "rotateOnTimer"
oGauge.TimerInterval = 1000

XBasic (Alpha Five)

' Occurs when the interval elapses.
function Timer as v (TickCount  as  N)
	Dim var_Layer as P
	oGauge = topparent:CONTROL_ACTIVEX1.activex
	var_Layer = oGauge.Layers.Item("rotateOnTimer")
		var_Layer.RotateAngle = oGauge.FormatABC("A + 5",.Layers.Item("rotateOnTimer").RotateAngle)
		? TickCount 
end function

Dim oGauge as P

oGauge = topparent:CONTROL_ACTIVEX1.activex
oGauge.Template = "DefaultLayer(185) = 1" // oGauge.DefaultLayer(185) = 1
oGauge.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob"
oGauge.PicturesName = "`Layer` + int(value  + 1) + `.png`"
oGauge.Layers.Count = 11
oGauge.Layers.Item(0).Key = "rotateOnTimer"
oGauge.TimerInterval = 1000

Visual Objects

METHOD OCX_Exontrol1Timer(TickCount) CLASS MainDialog
	// Timer event - Occurs when the interval elapses.
	local var_Layer as ILayer
	var_Layer := oDCOCX_Exontrol1:Layers:[Item,"rotateOnTimer"]
		var_Layer:RotateAngle := oDCOCX_Exontrol1:FormatABC("A + 5",:Layers:[Item,"rotateOnTimer"]:RotateAngle,nil,nil)
		OutputDebugString(String2Psz( AsString(TickCount) ))
RETURN NIL


oDCOCX_Exontrol1:[DefaultLayer,exDefLayerRotateType] := 1
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob"
oDCOCX_Exontrol1:PicturesName := "`Layer` + int(value  + 1) + `.png`"
oDCOCX_Exontrol1:Layers:Count := 11
oDCOCX_Exontrol1:Layers:[Item,0]:Key := "rotateOnTimer"
oDCOCX_Exontrol1:TimerInterval := 1000

PowerBuilder

/*begin event Timer(long  TickCount) - Occurs when the interval elapses.*/
/*
	OleObject var_Layer
	oGauge = ole_1.Object
	var_Layer = oGauge.Layers.Item("rotateOnTimer")
		var_Layer.RotateAngle = oGauge.FormatABC("A + 5",.Layers.Item("rotateOnTimer").RotateAngle)
		MessageBox("Information",string( String(TickCount) ))
*/
/*end event Timer*/

OleObject oGauge

oGauge = ole_1.Object
oGauge.DefaultLayer(185,1)
oGauge.PicturesPath = "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob"
oGauge.PicturesName = "`Layer` + int(value  + 1) + `.png`"
oGauge.Layers.Count = 11
oGauge.Layers.Item(0).Key = "rotateOnTimer"
oGauge.TimerInterval = 1000

Visual DataFlex

// Occurs when the interval elapses.
Procedure OnComTimer Integer   llTickCount
	Forward Send OnComTimer llTickCount
	Variant voLayers
	Get ComLayers to voLayers
	Handle hoLayers
	Get Create (RefClass(cComLayers)) to hoLayers
	Set pvComObject of hoLayers to voLayers
		Variant voLayer
		Get ComItem of hoLayers "rotateOnTimer" to voLayer
		Handle hoLayer
		Get Create (RefClass(cComLayer)) to hoLayer
		Set pvComObject of hoLayer to voLayer
			Variant v
				Variant vA
				Variant voLayers1
				Get ComLayers to voLayers1
				Handle hoLayers1
				Get Create (RefClass(cComLayers)) to hoLayers1
				Set pvComObject of hoLayers1 to voLayers1
					Variant voLayer1
					Get ComItem of hoLayers1 "rotateOnTimer" to voLayer1
					Handle hoLayer1
					Get Create (RefClass(cComLayer)) to hoLayer1
					Set pvComObject of hoLayer1 to voLayer1
						Get ComRotateAngle of hoLayer1 to vA
					Send Destroy to hoLayer1
				Send Destroy to hoLayers1
				Get ComFormatABC "A + 5" vA Nothing Nothing to v
			Set ComRotateAngle of hoLayer to v
			Showln llTickCount
		Send Destroy to hoLayer
	Send Destroy to hoLayers
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDefaultLayer OLEexDefLayerRotateType to 1
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob"
	Set ComPicturesName to "`Layer` + int(value  + 1) + `.png`"
	Variant voLayers2
	Get ComLayers to voLayers2
	Handle hoLayers2
	Get Create (RefClass(cComLayers)) to hoLayers2
	Set pvComObject of hoLayers2 to voLayers2
		Set ComCount of hoLayers2 to 11
	Send Destroy to hoLayers2
	Variant voLayers3
	Get ComLayers to voLayers3
	Handle hoLayers3
	Get Create (RefClass(cComLayers)) to hoLayers3
	Set pvComObject of hoLayers3 to voLayers3
		Variant voLayer2
		Get ComItem of hoLayers3 0 to voLayer2
		Handle hoLayer2
		Get Create (RefClass(cComLayer)) to hoLayer2
		Set pvComObject of hoLayer2 to voLayer2
			Set ComKey of hoLayer2 to "rotateOnTimer"
		Send Destroy to hoLayer2
	Send Destroy to hoLayers3
	Set ComTimerInterval to 1000
End_Procedure

XBase++

PROCEDURE OnTimer(oGauge,TickCount)
	LOCAL oLayer
	oLayer := oGauge:Layers:Item("rotateOnTimer")
		oLayer:RotateAngle := oGauge:FormatABC("A + 5",:Layers:Item("rotateOnTimer"):RotateAngle())
		DevOut( Transform(TickCount,"") )
RETURN

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

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

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

	oGauge := XbpActiveXControl():new( oForm:drawingArea )
	oGauge:CLSID  := "Exontrol.Gauge.1" /*{91628F12-393C-44EF-A558-83ED1790AAD3}*/
	oGauge:create(,, {10,60},{610,370} )

		oGauge:Timer := {|TickCount| OnTimer(oGauge,TickCount)} /*Occurs when the interval elapses.*/

		oGauge:SetProperty("DefaultLayer",185/*exDefLayerRotateType*/,1)
		oGauge:PicturesPath := "C:\Program Files\Exontrol\ExGauge\Sample\Design\Circular\Knob"
		oGauge:PicturesName := "`Layer` + int(value  + 1) + `.png`"
		oGauge:Layers():Count := 11
		oGauge:Layers:Item(0):Key := "rotateOnTimer"
		oGauge:TimerInterval := 1000

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