private sub lap
        Dim i As Integer
        Dim ret As Integer
        Dim piCount As Integer
        Dim buffer As Long
        Dim ptr As Long
        Dim pDevices() As CONAPI_DEVICE
        Dim pDev As CONAPI_DEVICE
        Dim length As Long
 
        ' Querying count of connected devices
        ret = CONAGetDeviceCount(m_hDMHandle, piCount)
        If ret <> CONA_OK Then ShowErrorMessage "CONAGetDeviceCount", ret
        If ret = CONA_OK And piCount > 0 Then
            ReDim pDevices(piCount)
            ReDim m_strSerialNumbers(piCount)
            ' Allocate memory for buffer
            buffer = isMalloc.Alloc(piCount * Len(pDev))
            length = Len(pDev)
 
     ret = CONAGetDevices(m_hDMHandle, piCount, buffer)
 
     Call CopyMemory(ByVal VarPtr(pDev), ByVal (buffer), length)
 
 End lap

Zitat:

Public Declare Function CONAGetDevices Lib "ConnAPI" (ByVal hDMHandle As Integer, ByRef iCount As Integer, ByVal pDevices As Any) As Integer

http://rm_code.dl.am