发送电子邮件源码(支持ESTMP协议，超文本电子邮件格式)[2]

      top             =   960
      width           =   2295
   end
   begin vb.textbox txtpwa
      height          =   270
      imemode         =   3  'disable
      left            =   3960
      maxlength       =   8
      passwordchar    =   "*"
      tabindex        =   7
      top             =   1200
      width           =   1575
   end
   begin vb.textbox getaddress
      height          =   300
      left            =   960
      tabindex        =   5
      top             =   600
      width           =   2295
   end
   begin vb.textbox txtfrom
      height          =   300
      left            =   960
      tabindex        =   3
      top             =   240
      width           =   2295
   end
   begin vb.commandbutton cmdexit
      caption         =   "退出"
      height          =   375
      left            =   4680
      tabindex        =   2
      top             =   240
      width           =   975
   end
   begin vb.commandbutton cmdsend
      caption         =   "发送"
      height          =   375
      left            =   3360
      tabindex        =   1
      top             =   240
      width           =   975
   end
   begin vb.textbox txtmessage
      height          =   1815
      left            =   0
      multiline       =   -1  'true
      tabindex        =   0
      tooltiptext     =   "信件内容"
      top             =   1680
      width           =   5775
   end
   begin vb.label label6