Problème Winsock VBasic

Bonjour,

J'aimerais faire une petite application pour lire ou envoyer des mails. Actuellement, je teste l'envoi. Pour cela, j'utilise le contrôle Winsock. Cependant, lors de la compilation de mon programme, il me met : "Un objet est requis.". Et, je n'arrive pas à corriger l'erreur. Il est à noter que dans ces quelques lignes, j'essaie simplement de me connecter.

Voici le code correspondant :

Private Sub Connexion_Click()

Winsock.RemoteHost = smtp.wanadoo.fr
Winsock.RemotePort = 25
Winsock.Close

End Sub

'Si on est connecté, afficher une msgbox...
Sub winsock_Connect()

a = MsgBox("Vous êtes connecté !", vbOKOnly)

End Sub

Je vous remercie !