VB2005.NET中邮件收发代码问题。。。。。

我的可以用啊~做一个按钮，黏贴
Dim x1 As Double, x2 As Double
Dim y1 As Double, y2 As Double
Console.WriteLine("输入两个数，计算x1的x2的次方")
x1 = InputBox("输入x1", "乘方运算底数")
x2 = InputBox("输入x2", "乘方运算指数")
y1 = Math.Pow(x1, x2)
MsgBox(y1, MsgBoxStyle.Information, "乘方运算结果")
Console.WriteLine("输入两个数，计算以x1为底，x2的对数")
x1 = InputBox("输入x1", "对数运算底数")
x2 = InputBox("输入x2", "对数运算指数")
y1 = Math.Log(x1, x2)
MsgBox(y1, MsgBoxStyle.Information, "对数运算结果")
Console.WriteLine("输入一个数，计算绝对值")
x1 = InputBox("输入一个数", "求绝对值")
y1 = Math.Abs(x1)
MsgBox(y1, MsgBoxStyle.Information, "求绝对值")
Console.WriteLine("输入一个数，计算大于该数的最小整数")
y1 = Math.Ceiling(x1)
MsgBox(y1, MsgBoxStyle.Information, "计算结果")
Console.ReadLine()
可以正常运行

我有vb写的一个基于udp协议的可靠数据传输的例子。
是收发邮件。要的话给发mail
z1999ml@sina.com