Dim T1 As Long
Dim T2 As Long
Dim T3 As Long

DoOEMButton(1011)'Zero A axis DRO

DoOEMButton(303)'MPG Velocity Only

T1 = GetOEMDRO(102) 'current encoder count

Code (" G01 A47 F900") 'move 47deg anticlockwise fast
	While (IsMoving())
		Sleep (100)
	Wend
Code ("G01 A45 F200") 'move 2Deg clockwise slowly
	While (IsMoving())
		Sleep (100)
	Wend

T2 = GetOEMDRO(102) 'new encoder count

T3 = T2 - T1

SetOEMDRO(1999,T3)'Put value T3 into Encoder DRO