home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / copy.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  3.9 KB  |  126 lines
  1. VERSION 4.00
  2. Begin VB.Form frmCopy 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "#"
  5.    ClientHeight    =   1830
  6.    ClientLeft      =   870
  7.    ClientTop       =   1530
  8.    ClientWidth     =   5910
  9.    ClipControls    =   0   'False
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    Height          =   2235
  20.    Icon            =   "COPY.frx":0000
  21.    Left            =   810
  22.    LinkTopic       =   "Form1"
  23.    LockControls    =   -1  'True
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   1830
  27.    ScaleWidth      =   5910
  28.    Top             =   1185
  29.    Width           =   6030
  30.    Begin VB.PictureBox picStatus 
  31.       AutoRedraw      =   -1  'True
  32.       ClipControls    =   0   'False
  33.       FillColor       =   &H00FF0000&
  34.       BeginProperty Font 
  35.          name            =   "MS Sans Serif"
  36.          charset         =   0
  37.          weight          =   400
  38.          size            =   8.25
  39.          underline       =   0   'False
  40.          italic          =   0   'False
  41.          strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   384
  44.       Left            =   168
  45.       ScaleHeight     =   360
  46.       ScaleWidth      =   5565
  47.       TabIndex        =   3
  48.       TabStop         =   0   'False
  49.       Top             =   708
  50.       Width           =   5592
  51.    End
  52.    Begin VB.CommandButton cmdExit 
  53.       Cancel          =   -1  'True
  54.       Caption         =   "#"
  55.       Default         =   -1  'True
  56.       BeginProperty Font 
  57.          name            =   "MS Sans Serif"
  58.          charset         =   0
  59.          weight          =   400
  60.          size            =   8.25
  61.          underline       =   0   'False
  62.          italic          =   0   'False
  63.          strikethrough   =   0   'False
  64.       EndProperty
  65.       Height          =   420
  66.       Left            =   2085
  67.       TabIndex        =   0
  68.       Top             =   1275
  69.       Width           =   1665
  70.    End
  71.    Begin VB.Label lblDestFile 
  72.       Caption         =   "*"
  73.       BeginProperty Font 
  74.          name            =   "MS Sans Serif"
  75.          charset         =   0
  76.          weight          =   400
  77.          size            =   8.25
  78.          underline       =   0   'False
  79.          italic          =   0   'False
  80.          strikethrough   =   0   'False
  81.       EndProperty
  82.       Height          =   192
  83.       Left            =   168
  84.       TabIndex        =   1
  85.       Top             =   300
  86.       Width           =   5640
  87.    End
  88.    Begin VB.Label lblCopy 
  89.       AutoSize        =   -1  'True
  90.       Caption         =   "#"
  91.       BeginProperty Font 
  92.          name            =   "MS Sans Serif"
  93.          charset         =   0
  94.          weight          =   400
  95.          size            =   8.25
  96.          underline       =   0   'False
  97.          italic          =   0   'False
  98.          strikethrough   =   0   'False
  99.       EndProperty
  100.       Height          =   195
  101.       Left            =   165
  102.       TabIndex        =   2
  103.       Top             =   0
  104.       Width           =   105
  105.    End
  106. Attribute VB_Name = "frmCopy"
  107. Attribute VB_Creatable = False
  108. Attribute VB_Exposed = False
  109. Option Explicit
  110. Option Compare Text
  111. Private Sub cmdExit_Click()
  112.     ExitSetup Me, gintRET_EXIT
  113. End Sub
  114. Private Sub Form_Load()
  115.     cmdExit.Caption = ResolveResString(resBTNCANCEL)
  116.     lblCopy.Caption = ResolveResString(resLBLDESTFILE)
  117.     lblDestFile.Caption = gstrNULL
  118.     frmCopy.Caption = gstrTitle
  119. End Sub
  120. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  121.     If UnloadMode <> 1 Then
  122.         ExitSetup Me, gintRET_EXIT
  123.         Cancel = 1
  124.     End If
  125. End Sub
  126.