Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                                                   Handles Button1.Click
    Dim smtp As New SmtpClient("mail.server")

    ''基本認証
    smtp.Credentials = New System.Net.NetworkCredential("userid", "password")
    ''メール送信
    smtp.Send("from@vbstation.net", "to.vbstation.net", "subject", "body")

    MessageBox.Show("送信完了")
End Sub