Попробуй функцию ObjPrt. Может хоть она осталась в .NET?
Если не удасться вызвать и эту функцию, то попробуй преобразовать Unicode-строку в байтовый массив и передать функции (API) этот массив.
Max Pro

Пардон, не ObjPrt, а ObjPtr конечно же.
Max Pro

Отсутствие указателей на данные пережить можно, поскольку VB в состоянии передавать данные в процедуру по ссылке, но без указателей на процедуры, некоторые функции API , которые требуют передачи в качестве одного из аргументов указателя на процедуру, написанную пользователем, применять невозможно. Для этого случая предназначен оператор AddressOf. В .NET он работает, так что жить можно.
Max Pro

Sasha09Что-то не очень понятно как действовать.

Вок кусочек кода

Declare Function lStrCpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As Integer, ByVal lpString2 As Integer) As Integer

Dim sStatusText As String
Dim usStatusText As String


sStatusText = New String(CChar(" "), 25)

lStrCpy(StrPtr(sStatusText), ipstrStatusText)

Как его можно адаптировать?

Вместо StrPtr(sStatusText) пиши sStatusText.ToCharArray
И попробуй, не прокатит ли в таком виде.
Если нет, то замени ключевые слова ByVal на ByRef.
Если опять не прокатит, то вместо sStatusText.ToCharArray воткни sStatusText
Ну вобщем-то всё.
Сообщи о результатах, интересно.

Да, чуть не забыл. Ты кажется ошибочку допустил - вместо функции lstrcpyA используешь lStrCpy. Ну или наоборот.
Max Pro