Hi,

You can use the ClientPtToDocPt method to find the logical coordinates of a pixel. E.g. this method should zoom into the center of the view by adding 10 to the zoom factor:

[code]
Private Sub cmdZoom_Click()
Dim widthPixels As Single
Dim heightPixels As Single

widthPixels = ScaleX(fcx.Width, vbTwips, vbPixels)
heightPixels = ScaleY(fcx.Height, vbTwips, vbPixels)

Dim centerBeforeZoomX As Long
Dim centerBeforeZoomY As Long

fcx.ClientPtToDocPt widthPixels / 2, heightPixels / 2, _
centerBeforeZoomX, centerBeforeZoomY

fcx.ZoomFactor = fcx.ZoomFactor + 10

Dim centerAfterZoomX As Long
Dim centerAfterZoomY As Long

fcx.ClientPtToDocPt widthPixels / 2, heightPixels / 2, _
centerAfterZoomX, centerAfterZoomY

'this restores the center point
fcx.ScrollX = fcx.ScrollX + centerBeforeZoomX - centerAfterZoomX
fcx.ScrollY = fcx.ScrollY + centerBeforeZoomY - centerAfterZoomY
End Sub
[/code]

Convert (0,0) and (widthPixels, heightPixels) to find out what the view rectangle is in document coordinates.

Stoyan