Block TCP ports with VB

how do i go about blocking tcp ports in vb6. I want to write a program, that will block various ports, such as http port, messenger port, etc... so that if a command button is pressed it will block a given port# until a button is clicked to unblock the port. thanks

Nathan

Look for more info on GetTcpTable and SetTcpEntry APIs

I find that if i use the winsock control, and set the port with:

winsock1.localport = 8080

it errors with the message:
"address in use"

any suggestions?

Thanks,
Nathan