Im having problem using this activeX in vfp I have an SDK but in visual basic.

Can anybody help, please..

Here is the code:



Private Sub cmdSave_Click()
On Error Resume Next
Dim blob() As Byte
Dim bvariant As Variant

If RegTemplate Is Nothing Then
Exit Sub
End If

RegTemplate.Export bvariant <--- when I write this line in vfp
blob = bvariant
Kill "c:\template.fpt"
Open "c:\template.fpt" For Binary As #1
Put #1, , blob
Close #1
End Sub


Example:



Local xValue

xValue = ""
RegTemplate.Export(xValue)

And also:
xValue = ""
RegTemplate.Export(@xValue)

When I run the code I get no error but xValue has no value.