一、带窗体的dll创建
成都创新互联公司专注于娄星网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供娄星营销型网站建设，娄星网站制作、娄星网页设计、娄星网站官网定制、成都微信小程序服务，打造娄星网络公司原创品牌,更为您提供娄星网站排名全网营销落地服务。
1、先新建 类库（testdll），在项目中添加两个窗体form1(主窗体)、form2,为了与后面的调用区分分别命名为fm1,fm2；并在fm1窗体中添加一个按钮用来调用fm2如下图
2、在fm1窗体代码中先引用fm2, 按钮代码调用fm2.如图
3、生成dll,(class1.vb中不需要写任何代码）
二、调用dll
1、新建 一个windows应用程序并添加一个按钮用来调用dll中的窗体，选 择 “项目”－“添加引用”，选择刚才创建的testdll
2、窗体代码中先引用testdll,再定义一个testdll中的fm1对象，最后执行对象的show方法
3、运行结果如下：
在您的代码中，您已经成功使用了RegAsm命令将DLL注册为COM组件，并在VB6中成功引用了该组件的类型库文件（TLB文件）。此外，您还在VB6代码中声明了一个YCImageDo类型的对象，并成功创建了该对象。
但是，当您尝试使用YCImageDo对象的属性和方法时，却发现这些成员不可见。这可能是因为在编写DLL代码时您没有正确地声明这些成员的可见性。
在VB.NET中，您可以使用"Public"关键字来声明一个类型的成员（属性、方法、过程等）对外可见，而使用"Private"关键字则声明该成员仅在类型内可见。如果您希望YCImageDo类型的成员在VB6代码中可见，则应将这些成员声明为Public类型。
例如，如果您希望YCImageDo类型拥有一个名为"GetImage"的方法，则可以在DLL代码中按如下方式声明该方法：
Public Function GetImage() As String
' 在这里编写方法的代码
End Function
同样，如果您希望YCImageDo类型拥有一个名为"ImagePath"的属性，则可以在DLL代码中按如下方式声明该属性：
Public Property ImagePath As String
新建---类库---把你的函数放在新建的类库中-----生成ClassLibrary1
在net程序中---引用----对应目录下的ClassLibrary1.dll
对应的代码定义如： Dim mydll As New ClassLibrary1.Class1
最后就可以用mydll调用你的函数MyFunction了： mydll .MyFunction(1, 2)
注意：vb.net编写的DLL不能用API函数的方式通过Declare宣告，只能引用的方式使用
vb.net要编写的DLL能被vb6.0引用，需要先在编译属性中选择“为COM互操作注册”打勾
然后在Visual Studio 2008 命令提示中运用RegAsm命令加/tlb命令生成tlb文件
例如：c:\ReleaseRegAsm ClassLibrary1.dll /tlb回车就会在当前目录生成ClassLibrary1.tlb文件
vb6.0中引用ClassLibrary1.tlb即可。
VB.net语言
1、创建组件定义
新建一个Probject，在代码中写入：
Public Interface IDemo
Function Test() As String
End Interface
2、实现组件定义
新建一个Probject，添加对上述Probject的引用后，在代码中写入
Public Class Demo
Implements IDemo.IDemo
Public Function Test() As String Implements IDemo.IDemo.Test
Test = "Hello World!"
End Function
End Class
3、编译出Demo.dll组件
4、使用.net的工具 Visual Studio .Net 2003 Command Prompt，输入以下命令
Regasm Demo.dll /tlb:Demo.tlb
把Demo.dll注册为一个com对象（这个com对象不等同于普通的用VB编写的Com对象），并导出类型库Demo.tlb
5、新建一个VB工程，添加对Demo.tlb和IDemo.tlb的引用
6、定义两个全局变量
Dim vbDemo As Demo.Demo
Dim vbIDemo as IDemo.IDemo
7、在Form_Load事件中初始化
'初始化实体类
Set vbDemo = New Demo.Demo
'将实体类引用到抽象类
Set vbIDemo = vbDemo
8、然后，我们就可以用 vbIDemo.Test 这样的方法了
Private Declare function x Lib "dlltest.dll" (ByVal a As long, byval b as long) as long
