I have limited Visual Basic knowledge. How would this code look in Visusal FoxPro? This code is to display the status of a fax control I have on a form and shows the status of the fax control during the sending of a fax.

Here is the VB code:

*** ActiveX Control Event ***
LPARAMETERS pstatobj
Private Sub FaxManJr1_Status(ByVal pStatObj As FaxmanJrCtl.IfaxStatusObj)
THISFORM.cStatus.Value = pStatObj.CurrentStatusDesc

Thanks for the help. I will keep working on my own translation, but you might be able to save me some time.