Can anyone show me how to translate this VB6 code into VFP8 code?

Dim oSvc As AddressSvc
Dim oAddress As Address
Dim oResult As ValidateResult
Set oSvc = New AddressSvc
Set oAddress = New Address
oAddress.Line1 = "900 Winslow Way"
oAddress.City = "Bainbridge Island"
oAddress.Region = "WA"
oAddress.PostalCode = "98110"
Set oResult = oSvc.Validate(address)

Thanks