In effetti prima di spedire occorre specificare le proprie credenziali:

codice:
Dim msgsmtp As New Mail.SmtpClient
Dim msg As New Mail.MailMessage

msg.From = New Mail.MailAddress(mia_mail)
msgsmtp.Credentials = New NetworkCredential(mia_mail, password)

Ciao