here is the code that i use:


Winsock1.Close

Do While Winsock1.State <> sckClosed
DoEvents
STATUS.Text = "disconnecting from " & SMTP_HOST & ". Please wait."
Loop


but it does'nt work if i try after it