//定义结构
   Structure   cdSourceInfo
            Dim   SurceType   As   Integer        
            Dim   rsrvd   As   Integer   '/*   Reserved                  
            <VBFixedString(64),   System.Runtime.InteropServices.MarshalAs   (System.Runtime.InteropServices.UnmanagedType.ByValArray,   SizeConst:=64)>   Public   Name()   As   Char   '/*   Device   model   name  
            <VBFixedString(64),   System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray,   SizeConst:=64)>   Public   NameInOS()   As    
            Dim   PortType   As   Integer  
            Dim   u   As   cdPortDescripUnion  
   End   Structure

   //调用API       
   Declare   Function   CDOpenSource   Lib   "CDSDK.dll"   (ByRef   pSourceInfo   As   cdSourceInfo,   ByRef   phSource   As   Integer)   As   Integer
   //调用函数
   CDOpenSource(m_SourceInfo,   m_hSource)     

参数值都传过来了