Hi I need to convert some VB Call to An API Function into VFP, The VB Call IS:

Public Type LStatus
DStatus As Integer
DCode As Integer
PStatus As Byte
End Type

Private Declare Function GETStatus Lib "SomeDLL.dll" ( _
ByVal device As Integer, ByRef status As LStatus, _
ByRef devStatus As Byte, ByVal mode As Byte) As Byte

My biggest problems are the Variables type BYTE, how do they convert to VFP and also the Structure LSTATUS

My Conversion is the following:

DECLARE INTEGER GetStatus IN SOMEDLL ;
INTEGER nDevice , STRING @STATUS, ;
INTEGER @devStatus, INTEGER mode

It does not work properly and dont return anything in the Status Variable, The VB Call works fine.

Anyone help will be greatly appriciated.

Thanks