MouseWheel zoom center on cursor

OCX v16 Access mdb.
I have mousewheel zoom working with the image centered, but would like to get the cursor's position and zoom centered on the cursor. Is there an example?

How exactly do you want the behavior? Do you want to zoom the entire bitmap but keep the point under the mouse cursor in its old position?

Or do you want to zoom a partial area, like a magnifying glass around the mouse cursor?

Your first description is what I am after. I have the zoom rectangle working. Now I need zoom wheel with the entire bitmap zoomed at increments of mouse wheel spins, with the area of the image remaining under the cursor's position.

I used the following code in VB6 and it worked. Please try similar code in your application:

Dim xPos As Single, yPos As Single 'global variables

Private Sub Command1_Click()
LEAD1.Load "OCR1.TIF", 0, 0, 1
LEAD1.EnableMouseWheel = True
LEAD1.AutoScroll = False
End Sub

Private Sub LEAD1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
xPos = x
yPos = y
End Sub

Private Sub LEAD1_MouseWheel(ByVal nDelta As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
Dim factor As Double
If nDelta > 0 Then
factor = 0.9 * nDelta / 120
Else
factor = 1 / 0.9 * -nDelta / 120
End If

Dim xPos2, yPos2, w2, h2
xPos2 = (xPos * factor)
yPos2 = (yPos * factor)
w2 = (LEAD1.Width * factor)
h2 = (LEAD1.Height * factor)

LEAD1.ZoomToRect _
(xPos - xPos2) / Screen.TwipsPerPixelX, _
(yPos - yPos2) / Screen.TwipsPerPixelY, _
w2 / Screen.TwipsPerPixelX, _
h2 / Screen.TwipsPerPixelY
End Sub