帮忙看个实例。

1、医联码所有权归***卫生局所有，仅用于***范围内医疗机构上传和共享患者基本信息之用，请不要作为其它用途；
2、请从技术和管理上保证不打印重复的医联码（如遇打印故障或技术故障造成重复打印，请立即销毁，确保重复的医联码不会进入医院使用）；
3、医联码共14位数字，前5位为医院ID（***医院为11427），中间8位是顺序编号，最后一位为效验位。请调用附件中提供的动态库生成医联码。
4、请遵照文档《医联码规格说明.doc》中规定的尺寸等相关参数打印条码



二、动态库调用说明：

动态库文件名：smtools.dll
类模块： CheckDigit

1、函数 Public Function Encode(ByVal i As
Long) As String
'功能：编码
'输入：整数值，取值范围为100000到99999999
'输出：返回编码后的字符串，如有错误返回空串，错误信息通过函数GetLastError（）获取

2、函数 Public Function
GetLastError() As String
'功能：返回最近一次调用出错时的错误信息

下面时候我写的一点程序，提示编译错误：常数、固定长度字符串、数组、用户定义类型以及declare语句不允许作为对象模块的public成员
Declare Function AEncode lib"smtools.dll" (ByVal i As Long) As String
Private Sub Cmd_Click()
Dim Result As String
a = Val(Txtinput.Text)
 Result = Encode(a)
Print "The result was: " & Result

End Sub

mtools.dll这个文件是别人给的
dll文件应该放在那个位置呢？
我调用dll文件方法对吗？ --------------------编程问答-------------------- system32

--------------------编程问答-------------------- 曾经做过6～7年医疗行业系统的来看看 --------------------编程问答-------------------- 放到system32下面

利用regsvr32 注册到注册表

然后程序写
Dim dll As New smtools
smtools.xxxx
这样使用试试呢

补充：VB ,  API