Why can't I figure out, get to work or find code for the following. All I want to do is open an existing PTM file in a MS Access subform.

Dim gappMP As Mappoint Application
Set gappMP = CreateObject("MapPoint.Application")
gappMP.OpenMap ("C:\Maps\AnyMap.ptm")
gappMP.Visible = False
gappMP.PaneState = geoPaneNone
'Get the handle of the MapPoint Window
ghwndMP = FindWindow(vbNullString, "Map")
'Remove MapPoint Title Bar
FlipBit ghwndMP, WS_CAPTION, False
LoadMap = True

Dim gappMP As Mappoint Application --> Dim gappMP As Mappoint.Application
(or is that just a typo here?)

Its a typing error.

what error are you getting?

try

Code:

ghwndMP = FindWindow(vbNullString, "Map - Microsoft MapPoint Europe")

I'm not sure what this should read for North America if thats what your using