home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fade / frmclose.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-02  |  1.8 KB  |  60 lines
  1. VERSION 4.00
  2. Begin VB.Form frmClose 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "  Codepad Text Has Changed"
  5.    ClientHeight    =   1350
  6.    ClientLeft      =   2835
  7.    ClientTop       =   2970
  8.    ClientWidth     =   3645
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   1785
  12.    Left            =   2775
  13.    LinkTopic       =   "frmClose"
  14.    ScaleHeight     =   1350
  15.    ScaleWidth      =   3645
  16.    Top             =   2595
  17.    Width           =   3765
  18.    Begin VB.Frame Frame1 
  19.       Caption         =   "Unsaved Information Will Be Lost In 3 Seconds"
  20.       Height          =   1335
  21.       Left            =   -15
  22.       TabIndex        =   0
  23.       Top             =   0
  24.       Width           =   3660
  25.       Begin VB.Frame Frame2 
  26.          Height          =   975
  27.          Left            =   210
  28.          TabIndex        =   1
  29.          Top             =   210
  30.          Width           =   3285
  31.          Begin VB.CommandButton cmdClose 
  32.             Caption         =   "CLOSE"
  33.             Height          =   525
  34.             Left            =   1770
  35.             TabIndex        =   3
  36.             Top             =   270
  37.             Width           =   1320
  38.          End
  39.          Begin VB.CommandButton cmdAbort 
  40.             Caption         =   "ABORT"
  41.             Height          =   540
  42.             Left            =   210
  43.             TabIndex        =   2
  44.             Top             =   255
  45.             Width           =   1290
  46.          End
  47.       End
  48.    End
  49. Attribute VB_Name = "frmClose"
  50. Attribute VB_Creatable = False
  51. Attribute VB_Exposed = False
  52. Option Explicit
  53. Private Sub cmdAbort_Click()
  54. frmCode.Timer1.Enabled = False
  55. Me.Hide
  56. frmCode.Show
  57. End Sub
  58. Private Sub cmdClose_Click()
  59. End Sub
  60.