notice.frm

e-maill文件加密程序完整的源代码

VERSION 5.00
Begin VB.Form Notice 
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "MegaCrypt E-mail Assistant"
   ClientHeight    =   3000
   ClientLeft      =   2124
   ClientTop       =   1764
   ClientWidth     =   5328
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   7.8
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00000000&
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   3000
   ScaleWidth      =   5328
   Begin VB.CommandButton OK 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "OK"
      Height          =   720
      Left            =   1920
      TabIndex        =   5
      Top             =   1680
      Width           =   1296
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      Caption         =   "Version 2.1"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   7.8
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   156
      Left            =   2160
      TabIndex        =   8
      Top             =   480
      Width           =   732
   End
   Begin VB.Label Title2 
      Caption         =   "Mail"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   2750
      TabIndex        =   7
      Top             =   196
      Width           =   1572
   End
   Begin VB.Label Title1 
      Alignment       =   1  'Right Justify
      Caption         =   "Stealth"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   1250
      TabIndex        =   6
      Top             =   196
      Width           =   1572
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "Copyright Patterson Programming"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   324
      TabIndex        =   0
      Top             =   680
      Width           =   4536
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "1996 - 1999"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   324
      TabIndex        =   1
      Top             =   920
      Width           =   4536
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "All Rights Reserved"
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   324
      TabIndex        =   2
      Top             =   1160
      Width           =   4536
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   324
      TabIndex        =   3
      Top             =   1400
      Width           =   4536
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "Freeware Version - No Warranty "
      ForeColor       =   &H00000000&
      Height          =   240
      Left            =   360
      TabIndex        =   4
      Top             =   2640
      Width           =   4536
   End
End
Attribute VB_Name = "Notice"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' StealthMail - Notice.FRM
' Copyright Patterson Programming, 1996-1999

Private Sub Form_Load()
    Notice.Left = (Screen.Width - Notice.Width) / 2
End Sub

Private Sub OK_click()
    Unload Notice
End Sub