nu Help 
          Caption         =   "帮助(&H)"
          Begin VB.Menu About 
             Caption         =   "关于 电子邮件"
          End
       End
    End
    Attribute VB_Name = "VBMail"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub About_Click()
    '点击About键发生
        MsgBox "VB课程设计实例" + Chr$(13) + Chr$(10) + "——电子邮件" + Chr$(13) + Chr$(10) + "     2001.12", 0, "电子邮件"
    End Sub
    
    Private Sub EditDelete_Click()
    '删除邮件
        On Error GoTo trap
        If TypeOf VBMail.ActiveForm Is MailLst Then
            VBMail.MAPIMess.MsgIndex = MailLst.Mlist.ListIndex
            Call DeleteMessage
        End If
    trap:
        Exit Sub
    End Sub
    
    Private Sub Exit_Click()
    '退出功能，如果对话未关闭，则调用logoff_Click关闭邮件对话
        If MAPISess.SessionID <> 0 Then
            Call Logoff_Click
        End If
        End
    End Sub
    
    Private Sub FontPrt_Click()
    '打印字体设置
        On Error Resume Next
        CMDialog1.Flags = 1
        CMDialog1.FontName = Printer.FontName
        CMDialog1.FontSize = Printer.FontSize
        CMDialog1.FontBold = Printer.FontBold[br