Si te sirve apagarlo...--> Shell("shutdown.exe -a - t 00"

Shell("COMANDO") y fuera

Buenas queria solo comentar para los hackers programadores en visual basic que andais arrastrando el objeto winsock cada vez que creais una aplicacion con el que podeis sustituirlo por una clase que  os pondre ahora la direccion. Si os descargais el archivo vereis ejemplos muy sencillos e interesantes.

http://www.freevbcode.com/ShowCode.asp?ID=6485