这样定义有什么的错误？

VB.NET code

 Public Sub send(ByVal [to] As String, ByVal from As String, ByVal subject As String, ByVal body As String, ByVal username As String, ByVal password As String, ByVal smtphost As String)        Dim from As New MailAddress(from)‘这样定义有什么的错误？        Dim [to] As New MailAddress([to])’这样定义有什么的错误？        Dim message As New MailMessage(from, [to])        message.Subject = subject        '设置邮件主题        message.IsBodyHtml = True        '设置邮件正文为html格式        message.Body = body        '设置邮件内容        Dim client As New SmtpClient(smtphost)        '设置发送邮件身份验证方式        '注意如果发件人地址是abc@def.com，则用户名是abc而不是abc@def.com        client.Credentials = New NetworkCredential(username, password)        client.Send(message)    End Sub

[解决办法]
MSDN上有说明的呀,多加一个参数嘛
Visual Basic（声明）
Public Sub New ( _
address As String, _
displayName As String _
)

MailAddress from = new MailAddress("ben@contoso.com", "Ben Miller");