mapinfo与vb 的结合

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 ("Run Application"""+"D:\GIS\fsgis\线路分布图.WOR"+""" ") End Sub 在Form2窗体中集成MapInfo的浏览窗口,程序如下: P