VB+mapinfo开发请教

初学mapinfo及开发，请教一下问题：
Private Sub Form_Load()
Dim mi As Object
Set mi = CreateObject("mapinfo.application")
mi.Do "Set Application Window " & Form1.hWnd
mi.Do "set next document parent " & Form1.hWnd & "style 1"
mi.Do "open table ""link""interactive map from link"
mi.RunMenuCommand 1702
mi.Do "create menu ""mappershortcut""ID 17 As ""(-"" "

End Sub
在vb中写了这样一段代码，但是运行结果只出现了一个空空的vb窗体，不知是怎么回事，是不是我的mapinfo有问题（网上下载的）。

依然什么都没有，

这样试试：

Private Sub Form_Load()
Dim mi As Object
Set mi = CreateObject("mapinfo.application")
mi.Do "Set Application Window " & Form1.hWnd
mi.Do "set next document parent " & Form1.hWnd & "style 1"
mi.Do "open table " "link" "interactive"
mi.Do "map from link"
end sub

1.检查LINK表内是否有东西
2.mi.Do "create menu ""mappershortcut""ID 17 As ""(-"" "删掉.