String Array Issue - VB 2005

[sudhansutiwari]

Hi Friends ,

Any help would be highly appreciated for the following problem :

I have a vb 6 application which makes call to an API in some dll
which returns an array of strings and no of elements in that array :

Declare Function vb_inq_applications Lib "tcvbodss.dll" (ByVal login_handle As Integer, ByRef no_of_elements As Integer, ByRef str_array() As String, ByRef handle As Integer) As

Integer

Dim handle As Integer
Dim no_of_elements As Integer
Dim str_array(16) As String

retcode = check_apps(login_handle, no_of_elements, str_array(), handle)

For i = 1 To UBound(str_array)
Debug.Print str_array(i)
Next i

This code worked absolutely fine untill I upgraded this to VB 2005 .
Now str_array() is not filled with data but the no_of_elements comes
correctly , following is the upgraded code :

Declare Function vb_inq_applications Lib "tcvbodss.dll" (ByVal login_handle As Short, ByRef no_of_elements As Short, ByRef str_array() As String, ByRef handle As Short) As Short

Dim handle As Integer
Dim no_of_elements As Integer
Dim str_array(16) As String
ReDim str_array(16)

retcode = check_apps(login_handle, no_of_elements, str_array, handle)

For i = 1 To UBound(str_array)
Console.WriteLine str_array(i)
Next i

I am unable to locate the PROBLEM , kindly help me to short out this issue.

[Hack]

Welcome to DevX.

Are you getting errors or just no data?

Do you have Option Strict On?

[sudhansutiwari]

When I change string declarartion as below :

<MarshalAs(UnmanagedType.SafeArray, SafeArraySubType:=VarEnum.VT_BSTR)> ByRef os_apl_ids() As String

I am getting the data but its not printing correctly except the LAST CHARACTER :

Output is follows :

Application : 0 ?????
Application : 1 ????2
Application : 2 ???l
Application : 3 ???d
Application : 4 ???n

STRANGE thing is last character is correct except in the first case but not the CHARACTER count.

Any help will be gr8 . . . I am completely LOST