Untitled

  #if TargetWin32
    Declare Function CBIOS_GetBoxInfoAdvI Lib "CBIOSVB6.Dll" alias "CBIOS_VB6_GetBoxInfoAdvI"(iCount  as Integer, byref stInfo as ptr) as integer
    return CBIOS_GetBoxInfoAdvI(iCount, stInfo)
  #Endif

-----------
Function Whatever() As Dictionary
   
  #if TargetWin32
    Declare Function CBIOS_GetBoxInfoAdvI Lib "CBIOSVB6.Dll" alias "CBIOS_VB6_GetBoxInfoAdvI"(iCount  as Integer, byref stInfo as ptr) as integer
Dim stInfo As MemoryBlock
Dim iCount, OSErr As Integer
Dim ReturnDict As New Dictionary

iCount = [Whatever]
stInfo = NewMemoryBlock(-- number of bytes required --)

OSErr = CBIOS_GetBoxInfoAdvI(iCount, stInfo)
ReturnDict.Value("OSErr") = OSErr
ReturnDict.Value("stInfo") = stInfo
Return ReturnDict
  #Endif
End Function