home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / EXE_Protec183517112005.psc / Advanced.frm < prev    next >
Text File  |  2004-12-31  |  2KB  |  77 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form Advanced 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Advanced Options- Encryption Level"
  6.    ClientHeight    =   1890
  7.    ClientLeft      =   45
  8.    ClientTop       =   435
  9.    ClientWidth     =   5130
  10.    Icon            =   "Advanced.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1890
  15.    ScaleWidth      =   5130
  16.    StartUpPosition =   1  'CenterOwner
  17.    Begin MSComctlLib.Slider Slider1 
  18.       Height          =   435
  19.       Left            =   120
  20.       TabIndex        =   0
  21.       Top             =   960
  22.       Width           =   4815
  23.       _ExtentX        =   8493
  24.       _ExtentY        =   767
  25.       _Version        =   393216
  26.       Min             =   1
  27.       Max             =   1023
  28.       SelStart        =   150
  29.       TickStyle       =   3
  30.       Value           =   150
  31.    End
  32.    Begin VB.Label Label4 
  33.       BackStyle       =   0  'Transparent
  34.       Caption         =   "High"
  35.       Height          =   255
  36.       Left            =   4320
  37.       TabIndex        =   4
  38.       Top             =   1440
  39.       Width           =   615
  40.    End
  41.    Begin VB.Label Label3 
  42.       BackStyle       =   0  'Transparent
  43.       Caption         =   "Normal"
  44.       Height          =   255
  45.       Left            =   2040
  46.       TabIndex        =   3
  47.       Top             =   1440
  48.       Width           =   615
  49.    End
  50.    Begin VB.Label Label2 
  51.       BackStyle       =   0  'Transparent
  52.       Caption         =   "Default"
  53.       Height          =   255
  54.       Left            =   120
  55.       TabIndex        =   2
  56.       Top             =   1440
  57.       Width           =   615
  58.    End
  59.    Begin VB.Label Label1 
  60.       BackStyle       =   0  'Transparent
  61.       Caption         =   $"Advanced.frx":000C
  62.       Height          =   615
  63.       Left            =   120
  64.       TabIndex        =   1
  65.       Top             =   120
  66.       Width           =   4695
  67.    End
  68. End
  69. Attribute VB_Name = "Advanced"
  70. Attribute VB_GlobalNameSpace = False
  71. Attribute VB_Creatable = False
  72. Attribute VB_PredeclaredId = True
  73. Attribute VB_Exposed = False
  74. Private Sub Slider1_Change()
  75. cryptlevel = Slider1.Value
  76. End Sub
  77.