Добрый день,
есть сторонняя DLL, есть несколько функций, пример
Declare Function имя_функции "длл.dll" (ByVal переменная As String,ByVal переменная As Integer,.... ByVal переменная As Single, ByRef переменная As Any, ByRef переменная As Any, ByRef переменная As Any) As Long
Объявила в модуле, вызываю в форме x=имя_функции(параметры ByVal, ....переменные ByRef)
Print x
Что делаю не так?

Akina,

некоторые as Any, некоторые пользовательский

Akina,
Не могу сказать, но мне передали файл где указано как обЪявить и как вызвать функцию, также дали БД в формате .dat и .idx, смысл в том что вызавая одну из функций нам должны возвратится несколько моделей оборудования с теми кретериями которые мы внесли + остальные те что ByRef , но при вызове завершается программа и в папке появлвются дополнительные файлы с форматом .dat и .idx , а имя произвольное

by-passshushan,
Правильнее - аварийно завершается работа программы.
99% что это связано с неправильном переданными в DLL типами переменных.
Хорошо,
Смотрите если тип "as any" в функции, как мне объявить переменную когда вызываю функцию
пример
код модуля
Declare Function GetPoints Lib "Select.dll" (ByVal Type As String, ByVal Size As String, ByVal RPM As Integer, ByVal Diffuser As Integer, ByRef CPoints As Any, ByRef SPoints As Any, ByRef BPoints As Any) As Long
код формы
Dim Type As String
Dim Size As String
Dim RPM As Integer
Dim Diffuser As Integer
Dim CPoints,SPoints,BPoints
dim x as long
x=GetPoints("asd","4",15,45,CPoints,SPoints,BPoints)

AkinaУ Вас есть РАБОТАЮЩИЙ пример использования этой функции - от разработчика или того, кто Вам эту хрень передал?

нет, есть exe программа,написанная на Vb, и ее dll мне дали

Akina Konst_One , да ещё как бы не VARPTR().
т.е возможно в функции при обЪявлении была использована функция VARPTR?

Akinashushanесть exe программа,написанная на Vb, и ее dll мне далиВот бери исходник ЭТОЙ программы и в нем смотри, как определяются передаваемые туда переменные и как они собственно передаются.
не дают

ATM-TURBO 2shushan,

Кидай dll и код вызова.
К сожалению не могу дать длл, подписала NDA(((