Private sub Command1.Click（） Set MapInfo = CreateObject（"MapInfo.Application"） MapInfo.Do "Set Application Window" & MDIForm1.hwnd MapInfo.Do （"Set Next Document Parent" & Picture1.hwnd&"Style 1"） MapInfo.Do （& quot;Run Application"""+"D：\GIS\fsgis\

Dim pt As MapObjects2.Point Set pt = New MapObjects2.Point Dim x, y As Double pt.x = 108.894461 pt.y = 34.153736 mapDisp.FromMapPoint (pt, x, y) Dim pt1 As New Point Set pt1 = New Point pt1.x = x pt1.y = y mapDisp.TrackingLayer.AddEvent pt, 0 End Su