How to add a field into PurchaseOrderEntry screen by using VBA?

[1128]

Hi,

How can I add a field into PurchaseOrderEntry screen and make the data saved with the PO?
is there any problem from the vb below?

==========================================

Option Explicit
Dim POECollection As DUOSObjects
Dim POEObject As DUOSObject




Private Sub PONumber_Changed()
Set POECollection = DUOSObjectsGet("POEInformation")
If PONumber.Empty = False Then
Set POEObject = POECollection(PONumber)

CarrierAddress = POEObject.Properties("Carrier Address")
CarrierPhone = POEObject.Properties("Carrier Phone")
End If
End Sub


Private Sub Save_BeforeUserChanged(KeepFocus As Boolean, CancelLogic As Boolean)
If PurchaseOrderEntry.Required = True Then
POEObject.Properties("Carrier Address") = CarrierAddress
POEObject.Properties("Carrier Phone") = CarrierPhone

End If
End Sub
======================================