be non so neanche io quello che ho fatto
allora dovrei mettere:
-----
WinSock.Connect Trim(txtEmailServer.Text), Val(Trim(txtEmailServerPort.Text))
-----
fuori dal ciclo While?

Invece "WinsockState = MAIL_CONNECT" lasciare dentro??

Mi potrste aiutare a sistemare questo codice che ho scritto senza capire molto?

Sono alle prime armi con Visual Basic