189 8069 5689
在您的代码中，您已经成功使用了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
1. Shared Function System.Runtime.
InteropServices.DLLimport("user32.dll")
2. MessageBoxA(ByVal hwnd As Integer,
ByVal text As String, ByVal
lpcaption As String, ByVal
wtype As Integer) As Integer
3. End Function
首先integer被作为32位数据替代了long(long是64位)
System是Net语言中的一个族，System.Runtime.InteropServices是system中的一个类。System.Runtime.InteropServices.DLLimpor是其中的一个方法。调用DLL的API
接口，这个的意思就是vb6的lib"user32", share是共享的意思，例如：
1. Public Class classA
2. Shared Function System.Runtime.
InteropServices.DLLimport("user32.dll")
MessageBoxA(ByVal h As Integer,
ByVal m As String, ByVal c As
String, ByVal type As Integer) As Integer
3. End Function
4. End Class
你可以这样调用 classA.MessageboxA 但是如果没有这个share 在class后打点就没有MessageboxA的成员出现了 ，现在你就象以前一样的使用他吧。
其实上面这个VB.NET函数调用方法并不正确，我们仍旧要使用API声明，只是换了一各形式
如果你认为这就是VB.NET就错了，看看这个：
system.WinForms.MessageBox.Show("对话内容写在这里", "标题写在这里", messagebox.OK BitOr messagebox.IconAsterisk)
这就是面向对象，你已经完成了所有的任务。不需要任何的API声明。不需要写多余的代码。
1. messagebox.IconAsterisk=惊叹号图标
2. messagebox.IconError=错误图标
3. messagebox.IconExclamation=警告图标
4. messagebox.IconHand=错误图标
5. messagebox.IconInformation=提示图标
所经点NET就是打点到达，在族后面打点，在类后面打点，在对象后面打点。第二个问题就是类与类之间相互的关系，Net在网上处理人与人的关系，在程序语言中处理类与类的关系。倒底是加不加share,倒底是类后面打点,还是Dim成一个对象（把他当一个变量吧）再说，是等于class,还是New class.是dim xxx as class=new class 还是dim xxx as new class
就是这样VB.NET函数调用将更简单，不须要研究一些很难的东西。
这说明你调用 API 传参存在问题。
首先有没有设置结构体内存对齐？
[StructLayout(LayoutKind.Sequential)] 加了吗？
COLORREF 不要用 Color 代替，用 int 代替
TCHAR cfFaceName[32] 定义为 Byte 数组也可以，带在传参前，必须初始化为 32 个长度
在VB.NET中不能直接添加opengl,需要引用csgl库.具体方法如下:
1 下载csgl库，压缩包内有libinstall和dep两个文件夹
2 运行libinstall文件夹下的install程序,将csgl.dll和csgl.native.dll文件添加至系统文件夹。
3 运用dep文件夹下的ResBuider程序（具体功能暂不可知）。
4 将dep文件夹下的Debug和Release文件夹内容分别复制到运行目录的相应文件夹中即可。