用VB实现一个简单的ESMTP客户端

最近发现JMail居然没有for VB的例子，本来想用C#写一个的，可是家里的电脑只有一个VB，好的程序员是不能受制于开发工具的（虽然我并不是个程序员）。

花了一个晚上，面对着RFC0821和Ethereal的截包结果，功夫不负有心人，终于有一个简单的例子可以和大家共享了，希望大家讨论一下。(格式不怎么好，许多异常也没处理，另外VB的语法已经忘得差不多了，请大家谅解！)

项目包括两个文件

1 main.frm

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   4725
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5550
   LinkTopic       =   "Form1"
   ScaleHeight     =   4725
   ScaleWidth      =   5550
   StartUpPosition =   3  ''Windows Default
   Begin MSWinsockLib.Winsock smtpClient
      Left            =   1680
      Top             =   120
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      RemoteHost      =   "mail.domain.com"
      RemotePort      =   25
   End
   Begin VB.CommandButton Command2
      Caption         =   "Connect"
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   120
      Width   &n