>Dim oEClient As Object >Dim bstrResponseCode >Set oEClient = CreateObject("MyObject") >oEClient.GetResponseCode bstrResponseCode >display.Text = display.Text + "Response Code: " + bstrResponseCode + Chr(13) + Chr(10) >>
>LOCAL loEClient >LOCAL lcResponseCode >loEClient=CREATEOBJECT('MyObject') >loEClient.GetResponseCode(lcResponseCode) >? 'Response Code: ' + lcResponseCode >>
LOCAL loEClient loEClient=CREATEOBJECT('MyObject') loResponseCode = loEClient.GetResponseCode() && You now have an object lo... lcResponseCode = loEClient.GetResponseCode(loResponseCode) ? 'Response Code: ' + lcResponseCodeHTH