How do I change the zoom level for the Zoom in and out button in ArcPad 10.2

Question

I have a custom ArcPad application and the zoom in and out button is zooming by a factor of 0.5 but I want it to be by 0.75. I thought I found the code which multiplies or divides the starting scale to zoom in and out. But when I change the multiplier the zoom level does not change. Any tips on where to look?

MosquitoGIS · Answer

I made some custom buttons that would change the extent.  Not sure if this is what you are looking for or not:  Here is the code for those buttons:

'When Plus sign is pressed
Sub btnZoomIn_OnClick
 'Zoom in
 Set extent = Map.Extent
 extent.ScaleRectangle 0.5
 Map.Extent = extent
End Sub

'When minus sign is pressed
Sub btnZoomOut_OnClick
 'Zoom Out
 Set extent = Map.Extent
 extent.ScaleRectangle 2.0
 Map.Extent = extent
End Sub