请大家帮忙mapinfo+vb

<P>我在将mapinfo与vb进行链接时，总是不调不成，程序如下。总报斜体部分出错，请高手帮忙</P>
<P>Public mymap As Object
Sub Form_Load()
Set mymap = CreateObject("MapInfo.application")
mymap.do "Set Application Window " ; Form1.hWnd</P>
<P><EM>mymap.do"set Next Document Parent";Form1.hWnd;"style1"</EM></P>
<P>mymap.do "create Menu""MapperShortcut""ID 17 As""(-"""</P>
<P>End Sub</P>