1: vb能封装ocx和active dll文件. 注意 active dll是一种动态，在被调用环境中不仅引用这个dll，而且还要引用这个dll所引用的其它文件,如 DBCommom.dll 是个数据库操作类封装，它引用了Ado 接口).其创建略,具体引用见后.
   
   2.vc中做dll时注意要提供接口，供其它程式调用.
     a>创建 win32 Dynamic-Link Library 如项目CMyTestDll
     b>加入成员function(在 .h中申明 .cpp中实现)

//取电脑名称
int CMyTestDll::GetComputerNameE(LPTSTR computer_name)
{
   DWORD buf=255;
   LPTSTR strname=new char[buf];
  if(GetComputerName(strname,&buf)!=0)
  {
  strcpy(computer_name,strname);
 return 1;
  }
  return 0;
}
//计算两个值之和
int CMyTestDll::Sum(int a, int b)
{
  return(a+b);
}

   c.>一定要加上CMyTestDll.def 文件 ，并在在其中定义导出各个function及参数,否则不能被调用
     EXPORTS
     GetComputerNameE @1;
     Sum @2; @3;
   d.>编译成dll便可以.最好每个function定义int为返回值.

  3.vb引用vc中dll 和普通API函数一样.(vb的long对应 vc的int)
    '引用
Private Declare Function GetComputerNameE Lib "目录\MyTestDll.dll" (ByVal strName As String) As Long
Private Declare Function Sum Lib "目录\\MyTestDll.dll" (ByVal g As Long, ByVal b As Long) As Long
    '调用
     Dim str As String * 20 ' 注意对于传址，一定要定义其空间大小(数组可以不指定)
     dim a As Long, b As Long
        a=25 b=78
      result = GetComputerNameE(str) 
      result=Sum(a, b)

  4.vc引用vb中ocx和dll
    如 C:\TestVb\DBCommon.dll 是个vb做的数据库通用类。包括对表的操作。
      在vc中要同时引用 DBCommon.dll和msado15.dll
    a>stdafx.h 中加上
       #import "C:\Program Files\Common Files\System\Ado\msado15.dll" no_namespace      rename("EOF","adoEOF")
    #import "E:\backup\Recycled\Study\VB\vb_Report\DBCommon.dll" named_guids(不知道类名用默认，否则用no_namespace 类名) 
     
    b>在调用时先要在App中InitInstance
       //初始化com类
      ::CoInitialize(NULL);