请问该怎样把SmarTeam按钮和代码联系起来？

我在SmarTeam菜单栏上做了一个按钮，请问该怎样把这个按钮和代码联系起来？我在做毕业设计，请各位大哥大姐帮帮忙，我用的是VB。

高手请帮帮忙，如上所述。我在建立代码文件的时候是建立BS文件还是建立EBS文件呢？

1、先在脚本维护中添加用户自定义的程序，注意用户自定义程序的应用范围；
2、在菜单编辑器中菜单命令－》“用户定义的命令”右键添加中新用户定义的命令，注意命令所应用的上下文环境
3、再在菜单脚本中相应地方添加新菜单项
4、保存

代码文件后缀是BS或EBS都可以。

谢谢高手mwd121的指点，现在有几个问题要问，希望能继续指教。
1、SmarTeam的例子是没有main()函数的，我在运行的时候它提示没有进入点，我在写代码的时候是不是也不用main()的？
2、命令所应用的上下文环境具体该怎么设置呢？
3、我在测试的时候不能调用Windows的的shell(),提示我没有声明shell()，我该怎么声明shell()或者加载哪个库呢？
     我要在SmarTeam上设置一个按钮，用来启动一个已经编译好的程序。高手能否做一个手把手教的过程示范一下。若不方便在上面发，可发到我的邮箱去，以救我一命（过几天就要写论文了，还没有把程序做出来）。不胜感激。我的邮箱是songxiaoju@sina.com.

1、不需要有main（）函数；
2、命令所应用的上下文环境在菜单编辑器中菜单命令－》“用户定义命令”的“新用户定义的命令”中的关联属性页中设定，其中正关联表示该命令可用的情况，负关联表示命令不可用的情况；
3、是要声明才能使用，我一般用ShellExecute函数，其声明如下：
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

谢谢mwd121,这个世界还有这等好人，想不到在这里遇上。我先试试。

能不能就ShellExsecute函数举个例子呢？我的VB很烂。

例子如下：
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
  
Dim Scr_hDC As Long
Dim WorkDir As String
Dim r As Long
  
Scr_hDC = GetDesktopWindow()
WorkDir = "d:\Work"
r = ShellExecute(Scr_hDC, "Open", DocumentName, 0&, WorkDir, 3)

我现在编了一个函数，但是我这里写不了函数名，又没有自动生成，我在编译的时候，它提示如下消息：There are no legal entry points in the file AnsysEncap.bs。请问我该怎么做呢？
还有就是WorkDir = "d:\Work" 和DocumentName具体代表什么？解决以上问题其他就好解决了。希望mwd121能继续指点。谢谢。