mapbasic画点问题。。。

有高手愿意帮我看看这个程序哪里有问题吗,程序可以编译，但是运行不对。
程序：

include "mapbasic.def"
include "icons.def"
declare sub main
declare sub tool_sub
'-------------------------------------------------------------------------
sub main
  create buttonpad "画点" as
   toolbutton calling tool_sub
     Icon      20
     CURSOR    138
    DrawMode  DM_CUSTOM_POLYGON
end sub

sub tool_sub
dim x1,y1 As Float
dim winid as integer
  x1 = CommandInfo(CMD_INFO_X)
  y1 = CommandInfo(CMD_INFO_Y)
Winid=FrontWindow()
  Create Point
     Into window winid
      (x1,y1)
end sub --------------------编程问答-------------------- 你就给点这东西，别人怎么帮你看呢？
运行不对，那么你想达到的效果是什么？你的程序的目的又是什么？ --------------------编程问答-------------------- Create Point
  Into window winid
  (x1,y1)

这里有问题吧.应该是把点加入到某个表或者图层，而不是加到某个窗口..

补充：企业软件 ,  地理信息系统