if eval('Thisform.p_ivr.SocketWrench' + transform(i) + '.Connected') lcDummy = 'Thisform.p_ivr.SocketWrench' + transform(i) + '.Disconnect' & lcDummy endif>Hi Gang!
>LOCAL i >i = 0 > >IF VARTYPE(Thisform.p_ivr.SocketWrench0) <> 'U' && We have an object > IF Thisform.p_ivr.SocketWrench0.Listening > Thisform.p_ivr.SocketWrench0.Disconnect > ENDIF > > FOR i = 1 TO lnLastSocket > IF Thisform.p_ivr.SocketWrench&i..Connected > Thisform.p_ivr.SocketWrench&i..Disconnect > ENDIF > ENDFOR >ENDIF >>