Private Sub Timer1_timer()
    Dim Res as string
    Res=EstadoServer(ip,puerto,NombreWinsockOSocketMaster)
    msgbox iif(Res=0,"Desconectado (OFF)","Conectado (On)")
end sub
 
public Function EstadoServer(IPDNS as string, byval Puerto as integer,Socket as Winsock) as long
    with Socket
        if .state<>7 then
            EstadoServer=0
            .close
            .remotehost=IPDNS
            .remoteport=Puerto
            .connect
        else
            EstadoServer=1
        end if
    end with
end function