I am converting a VB interface to a DLL to a VFP interface.

I have a VB type def:

Type AL_GRAIN
grain_id As Integer
grain_name As String * 32
lbs_per_bu As Integer
dry_mc As Double
spare(0 To 15) As Byte
End Type

and a function declaration:

Declare Function get_al_grain Lib "aglead32.dll" (ByVal c As Long, _
ByVal n As Long, _
ByRef g As AL_GRAIN) As Long

I can get AL_GRAIN into a string but,

Can anyone tell me how to convert the dry_mc to a Double in VFP?

Thanks.