Test Foro de elhacker.net SMF 2.1

public function esta_conectado() as boolean

dim ip as string

ip = winsock1.LocalIP

if strcomp(ip,"127.0.0.1")=0 then
esta_conectado = false
else
esta_conectado = true
end if



end sub

Mira te lo dejo mas facil:
If Winsock1.State = 7 then MsgBox "El programa esta conectado"

Te dejo las constantes de numeros del Winsock.State:
Socket cerrado = 0
Socket abierto = 1
Socket escuchando = 2
Conexion pendiente = 3
Resolviendo host = 4
Host resuelto = 5
Socket conectandose = 6
Socket conectado = 7
Socket cerrandose = 8
Socket error = 9