>You're right I had modified one line already. So Sorry. Original VB code follows:
>
>Status reporting for fax modem -
>
>Private Sub FaxManJr1_Status(ByVal pStatObj As FaxManJrCtl.IfaxStatusObj)
> Label1.Caption = pStatObj.CurrentStatusDesc
>End Sub
>
>And here's the other set of VB code contained in my other VB translate thread:
>
>See what FaxMan Jr. is doing -
>
>Private Sub FaxManJr1_Message(ByVal bsMsg As String, ByVal bNewLine As Integer)
> Text1.SelText = bsMsg
> If bNewLine Then Text1.SelText = vbCrLf
>End Sub
Ooops. Wasn't your intention to get that in VFP.
*Status event of activex would look like
lparameters pStatObj
thisform.Label1.Caption = pStatObj.CurrentStatusDesc
*Message method/event of activex would look like
lparameters bsMsg, bNewLine
thisform.Text1.SelText = bsMsg + iif(bNewLine # 0, chr(13)+chr(10),'')
Cetin