home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Protect_201762486262004.psc / list.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2004-05-24  |  19.7 KB  |  633 lines
  1. VERSION 5.00
  2. Begin VB.Form list 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Locked Items List"
  5.    ClientHeight    =   9045
  6.    ClientLeft      =   45
  7.    ClientTop       =   435
  8.    ClientWidth     =   7500
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form4"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Moveable        =   0   'False
  14.    ScaleHeight     =   9045
  15.    ScaleWidth      =   7500
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.CommandButton Command1 
  19.       Caption         =   "OK"
  20.       Default         =   -1  'True
  21.       Height          =   495
  22.       Left            =   6240
  23.       TabIndex        =   28
  24.       Top             =   8520
  25.       Width           =   1215
  26.    End
  27.    Begin VB.Label Label34 
  28.       Caption         =   "http://www.adranix.co.uk"
  29.       BeginProperty Font 
  30.          Name            =   "Arial"
  31.          Size            =   12
  32.          Charset         =   0
  33.          Weight          =   400
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       Height          =   255
  39.       Left            =   3840
  40.       TabIndex        =   34
  41.       Top             =   8040
  42.       Width           =   2535
  43.    End
  44.    Begin VB.Label Label33 
  45.       Caption         =   "By Adam Ranshaw"
  46.       BeginProperty Font 
  47.          Name            =   "Arial"
  48.          Size            =   12
  49.          Charset         =   0
  50.          Weight          =   400
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.       Height          =   375
  56.       Left            =   3840
  57.       TabIndex        =   33
  58.       Top             =   7680
  59.       Width           =   2055
  60.    End
  61.    Begin VB.Shape Shape1 
  62.       Height          =   855
  63.       Left            =   3720
  64.       Top             =   7560
  65.       Width           =   3615
  66.    End
  67.    Begin VB.Label Label32 
  68.       Caption         =   "Plus More"
  69.       BeginProperty Font 
  70.          Name            =   "Arial"
  71.          Size            =   14.25
  72.          Charset         =   0
  73.          Weight          =   400
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       Height          =   375
  79.       Left            =   3720
  80.       TabIndex        =   32
  81.       Top             =   7080
  82.       Width           =   5175
  83.    End
  84.    Begin VB.Label Label31 
  85.       Caption         =   "Internet Explorer"
  86.       BeginProperty Font 
  87.          Name            =   "Arial"
  88.          Size            =   14.25
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   375
  96.       Left            =   3720
  97.       TabIndex        =   31
  98.       Top             =   6600
  99.       Width           =   5175
  100.    End
  101.    Begin VB.Label Label30 
  102.       Caption         =   "Almost all Folders"
  103.       BeginProperty Font 
  104.          Name            =   "Arial"
  105.          Size            =   14.25
  106.          Charset         =   0
  107.          Weight          =   400
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   375
  113.       Left            =   3720
  114.       TabIndex        =   30
  115.       Top             =   6120
  116.       Width           =   5175
  117.    End
  118.    Begin VB.Label Label29 
  119.       Caption         =   "Recycle Bin"
  120.       BeginProperty Font 
  121.          Name            =   "Arial"
  122.          Size            =   14.25
  123.          Charset         =   0
  124.          Weight          =   400
  125.          Underline       =   0   'False
  126.          Italic          =   0   'False
  127.          Strikethrough   =   0   'False
  128.       EndProperty
  129.       Height          =   375
  130.       Left            =   3720
  131.       TabIndex        =   29
  132.       Top             =   5640
  133.       Width           =   5175
  134.    End
  135.    Begin VB.Line Line2 
  136.       X1              =   3600
  137.       X2              =   3600
  138.       Y1              =   600
  139.       Y2              =   9240
  140.    End
  141.    Begin VB.Label Label28 
  142.       Caption         =   "Synchrize"
  143.       BeginProperty Font 
  144.          Name            =   "Arial"
  145.          Size            =   14.25
  146.          Charset         =   0
  147.          Weight          =   400
  148.          Underline       =   0   'False
  149.          Italic          =   0   'False
  150.          Strikethrough   =   0   'False
  151.       EndProperty
  152.       Height          =   375
  153.       Left            =   3720
  154.       TabIndex        =   27
  155.       Top             =   5160
  156.       Width           =   5175
  157.    End
  158.    Begin VB.Label Label27 
  159.       Caption         =   "Local Security Policy"
  160.       BeginProperty Font 
  161.          Name            =   "Arial"
  162.          Size            =   14.25
  163.          Charset         =   0
  164.          Weight          =   400
  165.          Underline       =   0   'False
  166.          Italic          =   0   'False
  167.          Strikethrough   =   0   'False
  168.       EndProperty
  169.       Height          =   375
  170.       Left            =   3720
  171.       TabIndex        =   26
  172.       Top             =   4680
  173.       Width           =   5175
  174.    End
  175.    Begin VB.Label Label26 
  176.       Caption         =   "Windows Messenger"
  177.       BeginProperty Font 
  178.          Name            =   "Arial"
  179.          Size            =   14.25
  180.          Charset         =   0
  181.          Weight          =   400
  182.          Underline       =   0   'False
  183.          Italic          =   0   'False
  184.          Strikethrough   =   0   'False
  185.       EndProperty
  186.       Height          =   375
  187.       Left            =   3720
  188.       TabIndex        =   25
  189.       Top             =   4200
  190.       Width           =   5175
  191.    End
  192.    Begin VB.Label Label25 
  193.       Caption         =   "Remote Desktop Connection"
  194.       BeginProperty Font 
  195.          Name            =   "Arial"
  196.          Size            =   14.25
  197.          Charset         =   0
  198.          Weight          =   400
  199.          Underline       =   0   'False
  200.          Italic          =   0   'False
  201.          Strikethrough   =   0   'False
  202.       EndProperty
  203.       Height          =   375
  204.       Left            =   3720
  205.       TabIndex        =   24
  206.       Top             =   3720
  207.       Width           =   5175
  208.    End
  209.    Begin VB.Label Label24 
  210.       Caption         =   "Windows Media Player"
  211.       BeginProperty Font 
  212.          Name            =   "Arial"
  213.          Size            =   14.25
  214.          Charset         =   0
  215.          Weight          =   400
  216.          Underline       =   0   'False
  217.          Italic          =   0   'False
  218.          Strikethrough   =   0   'False
  219.       EndProperty
  220.       Height          =   375
  221.       Left            =   3720
  222.       TabIndex        =   23
  223.       Top             =   3240
  224.       Width           =   5175
  225.    End
  226.    Begin VB.Label Label23 
  227.       Caption         =   "Microsoft Hearts Network"
  228.       BeginProperty Font 
  229.          Name            =   "Arial"
  230.          Size            =   14.25
  231.          Charset         =   0
  232.          Weight          =   400
  233.          Underline       =   0   'False
  234.          Italic          =   0   'False
  235.          Strikethrough   =   0   'False
  236.       EndProperty
  237.       Height          =   375
  238.       Left            =   3720
  239.       TabIndex        =   22
  240.       Top             =   2760
  241.       Width           =   5175
  242.    End
  243.    Begin VB.Label Label22 
  244.       Caption         =   "Spider Solitare"
  245.       BeginProperty Font 
  246.          Name            =   "Arial"
  247.          Size            =   14.25
  248.          Charset         =   0
  249.          Weight          =   400
  250.          Underline       =   0   'False
  251.          Italic          =   0   'False
  252.          Strikethrough   =   0   'False
  253.       EndProperty
  254.       Height          =   375
  255.       Left            =   3720
  256.       TabIndex        =   21
  257.       Top             =   2280
  258.       Width           =   5175
  259.    End
  260.    Begin VB.Label Label21 
  261.       Caption         =   "Solitare"
  262.       BeginProperty Font 
  263.          Name            =   "Arial"
  264.          Size            =   14.25
  265.          Charset         =   0
  266.          Weight          =   400
  267.          Underline       =   0   'False
  268.          Italic          =   0   'False
  269.          Strikethrough   =   0   'False
  270.       EndProperty
  271.       Height          =   375
  272.       Left            =   3720
  273.       TabIndex        =   20
  274.       Top             =   1800
  275.       Width           =   5175
  276.    End
  277.    Begin VB.Label Label20 
  278.       Caption         =   "3D Pinball"
  279.       BeginProperty Font 
  280.          Name            =   "Arial"
  281.          Size            =   14.25
  282.          Charset         =   0
  283.          Weight          =   400
  284.          Underline       =   0   'False
  285.          Italic          =   0   'False
  286.          Strikethrough   =   0   'False
  287.       EndProperty
  288.       Height          =   375
  289.       Left            =   3720
  290.       TabIndex        =   19
  291.       Top             =   1320
  292.       Width           =   5175
  293.    End
  294.    Begin VB.Label Label19 
  295.       Caption         =   "Display Properties"
  296.       BeginProperty Font 
  297.          Name            =   "Arial"
  298.          Size            =   14.25
  299.          Charset         =   0
  300.          Weight          =   400
  301.          Underline       =   0   'False
  302.          Italic          =   0   'False
  303.          Strikethrough   =   0   'False
  304.       EndProperty
  305.       Height          =   375
  306.       Left            =   3720
  307.       TabIndex        =   18
  308.       Top             =   840
  309.       Width           =   5175
  310.    End
  311.    Begin VB.Label Label18 
  312.       Caption         =   "Scheduled Tasks"
  313.       BeginProperty Font 
  314.          Name            =   "Arial"
  315.          Size            =   14.25
  316.          Charset         =   0
  317.          Weight          =   400
  318.          Underline       =   0   'False
  319.          Italic          =   0   'False
  320.          Strikethrough   =   0   'False
  321.       EndProperty
  322.       Height          =   375
  323.       Left            =   120
  324.       TabIndex        =   17
  325.       Top             =   8520
  326.       Width           =   5175
  327.    End
  328.    Begin VB.Label Label17 
  329.       Caption         =   "Sound Recorder"
  330.       BeginProperty Font 
  331.          Name            =   "Arial"
  332.          Size            =   14.25
  333.          Charset         =   0
  334.          Weight          =   400
  335.          Underline       =   0   'False
  336.          Italic          =   0   'False
  337.          Strikethrough   =   0   'False
  338.       EndProperty
  339.       Height          =   375
  340.       Left            =   120
  341.       TabIndex        =   16
  342.       Top             =   8040
  343.       Width           =   5175
  344.    End
  345.    Begin VB.Label Label16 
  346.       Caption         =   "Windows Explorer"
  347.       BeginProperty Font 
  348.          Name            =   "Arial"
  349.          Size            =   14.25
  350.          Charset         =   0
  351.          Weight          =   400
  352.          Underline       =   0   'False
  353.          Italic          =   0   'False
  354.          Strikethrough   =   0   'False
  355.       EndProperty
  356.       Height          =   375
  357.       Left            =   120
  358.       TabIndex        =   15
  359.       Top             =   7560
  360.       Width           =   5175
  361.    End
  362.    Begin VB.Label Label15 
  363.       Caption         =   "Network Setup Wizard"
  364.       BeginProperty Font 
  365.          Name            =   "Arial"
  366.          Size            =   14.25
  367.          Charset         =   0
  368.          Weight          =   400
  369.          Underline       =   0   'False
  370.          Italic          =   0   'False
  371.          Strikethrough   =   0   'False
  372.       EndProperty
  373.       Height          =   375
  374.       Left            =   120
  375.       TabIndex        =   14
  376.       Top             =   7080
  377.       Width           =   5175
  378.    End
  379.    Begin VB.Label Label14 
  380.       Caption         =   "Narrator"
  381.       BeginProperty Font 
  382.          Name            =   "Arial"
  383.          Size            =   14.25
  384.          Charset         =   0
  385.          Weight          =   400
  386.          Underline       =   0   'False
  387.          Italic          =   0   'False
  388.          Strikethrough   =   0   'False
  389.       EndProperty
  390.       Height          =   375
  391.       Left            =   120
  392.       TabIndex        =   13
  393.       Top             =   6600
  394.       Width           =   5175
  395.    End
  396.    Begin VB.Label Label13 
  397.       Caption         =   "Command Prompt"
  398.       BeginProperty Font 
  399.          Name            =   "Arial"
  400.          Size            =   14.25
  401.          Charset         =   0
  402.          Weight          =   400
  403.          Underline       =   0   'False
  404.          Italic          =   0   'False
  405.          Strikethrough   =   0   'False
  406.       EndProperty
  407.       Height          =   375
  408.       Left            =   120
  409.       TabIndex        =   12
  410.       Top             =   6120
  411.       Width           =   5175
  412.    End
  413.    Begin VB.Label Label12 
  414.       Caption         =   "Backup or Restore Wizard"
  415.       BeginProperty Font 
  416.          Name            =   "Arial"
  417.          Size            =   14.25
  418.          Charset         =   0
  419.          Weight          =   400
  420.          Underline       =   0   'False
  421.          Italic          =   0   'False
  422.          Strikethrough   =   0   'False
  423.       EndProperty
  424.       Height          =   375
  425.       Left            =   120
  426.       TabIndex        =   11
  427.       Top             =   5640
  428.       Width           =   5175
  429.    End
  430.    Begin VB.Label Label11 
  431.       Caption         =   "Windows XP Tour"
  432.       BeginProperty Font 
  433.          Name            =   "Arial"
  434.          Size            =   14.25
  435.          Charset         =   0
  436.          Weight          =   400
  437.          Underline       =   0   'False
  438.          Italic          =   0   'False
  439.          Strikethrough   =   0   'False
  440.       EndProperty
  441.       Height          =   375
  442.       Left            =   120
  443.       TabIndex        =   10
  444.       Top             =   5160
  445.       Width           =   5175
  446.    End
  447.    Begin VB.Label Label10 
  448.       Caption         =   "My Pictures"
  449.       BeginProperty Font 
  450.          Name            =   "Arial"
  451.          Size            =   14.25
  452.          Charset         =   0
  453.          Weight          =   400
  454.          Underline       =   0   'False
  455.          Italic          =   0   'False
  456.          Strikethrough   =   0   'False
  457.       EndProperty
  458.       Height          =   375
  459.       Left            =   120
  460.       TabIndex        =   9
  461.       Top             =   4680
  462.       Width           =   5175
  463.    End
  464.    Begin VB.Label Label9 
  465.       Caption         =   "My Music"
  466.       BeginProperty Font 
  467.          Name            =   "Arial"
  468.          Size            =   14.25
  469.          Charset         =   0
  470.          Weight          =   400
  471.          Underline       =   0   'False
  472.          Italic          =   0   'False
  473.          Strikethrough   =   0   'False
  474.       EndProperty
  475.       Height          =   375
  476.       Left            =   120
  477.       TabIndex        =   8
  478.       Top             =   4200
  479.       Width           =   5175
  480.    End
  481.    Begin VB.Label Label8 
  482.       Caption         =   "Help and Support"
  483.       BeginProperty Font 
  484.          Name            =   "Arial"
  485.          Size            =   14.25
  486.          Charset         =   0
  487.          Weight          =   400
  488.          Underline       =   0   'False
  489.          Italic          =   0   'False
  490.          Strikethrough   =   0   'False
  491.       EndProperty
  492.       Height          =   375
  493.       Left            =   120
  494.       TabIndex        =   7
  495.       Top             =   3720
  496.       Width           =   5175
  497.    End
  498.    Begin VB.Label Label7 
  499.       Caption         =   "Printers and Faxes"
  500.       BeginProperty Font 
  501.          Name            =   "Arial"
  502.          Size            =   14.25
  503.          Charset         =   0
  504.          Weight          =   400
  505.          Underline       =   0   'False
  506.          Italic          =   0   'False
  507.          Strikethrough   =   0   'False
  508.       EndProperty
  509.       Height          =   375
  510.       Left            =   120
  511.       TabIndex        =   6
  512.       Top             =   3240
  513.       Width           =   5175
  514.    End
  515.    Begin VB.Label Label6 
  516.       Caption         =   "My Network Places"
  517.       BeginProperty Font 
  518.          Name            =   "Arial"
  519.          Size            =   14.25
  520.          Charset         =   0
  521.          Weight          =   400
  522.          Underline       =   0   'False
  523.          Italic          =   0   'False
  524.          Strikethrough   =   0   'False
  525.       EndProperty
  526.       Height          =   375
  527.       Left            =   120
  528.       TabIndex        =   5
  529.       Top             =   2280
  530.       Width           =   5175
  531.    End
  532.    Begin VB.Label Label5 
  533.       Caption         =   "My Computer"
  534.       BeginProperty Font 
  535.          Name            =   "Arial"
  536.          Size            =   14.25
  537.          Charset         =   0
  538.          Weight          =   400
  539.          Underline       =   0   'False
  540.          Italic          =   0   'False
  541.          Strikethrough   =   0   'False
  542.       EndProperty
  543.       Height          =   375
  544.       Left            =   120
  545.       TabIndex        =   4
  546.       Top             =   2760
  547.       Width           =   5175
  548.    End
  549.    Begin VB.Label Label4 
  550.       Caption         =   "Control Panel"
  551.       BeginProperty Font 
  552.          Name            =   "Arial"
  553.          Size            =   14.25
  554.          Charset         =   0
  555.          Weight          =   400
  556.          Underline       =   0   'False
  557.          Italic          =   0   'False
  558.          Strikethrough   =   0   'False
  559.       EndProperty
  560.       Height          =   375
  561.       Left            =   120
  562.       TabIndex        =   3
  563.       Top             =   1800
  564.       Width           =   5175
  565.    End
  566.    Begin VB.Label Label3 
  567.       Caption         =   "Search"
  568.       BeginProperty Font 
  569.          Name            =   "Arial"
  570.          Size            =   14.25
  571.          Charset         =   0
  572.          Weight          =   400
  573.          Underline       =   0   'False
  574.          Italic          =   0   'False
  575.          Strikethrough   =   0   'False
  576.       EndProperty
  577.       Height          =   375
  578.       Left            =   120
  579.       TabIndex        =   2
  580.       Top             =   1320
  581.       Width           =   5175
  582.    End
  583.    Begin VB.Label Label2 
  584.       Caption         =   "Run"
  585.       BeginProperty Font 
  586.          Name            =   "Arial"
  587.          Size            =   14.25
  588.          Charset         =   0
  589.          Weight          =   400
  590.          Underline       =   0   'False
  591.          Italic          =   0   'False
  592.          Strikethrough   =   0   'False
  593.       EndProperty
  594.       Height          =   375
  595.       Left            =   120
  596.       TabIndex        =   1
  597.       Top             =   840
  598.       Width           =   5175
  599.    End
  600.    Begin VB.Line Line1 
  601.       X1              =   0
  602.       X2              =   7920
  603.       Y1              =   600
  604.       Y2              =   600
  605.    End
  606.    Begin VB.Label Label1 
  607.       Caption         =   "Items that are Locked are shown below:"
  608.       BeginProperty Font 
  609.          Name            =   "Arial"
  610.          Size            =   14.25
  611.          Charset         =   0
  612.          Weight          =   400
  613.          Underline       =   0   'False
  614.          Italic          =   0   'False
  615.          Strikethrough   =   0   'False
  616.       EndProperty
  617.       ForeColor       =   &H000000FF&
  618.       Height          =   375
  619.       Left            =   1320
  620.       TabIndex        =   0
  621.       Top             =   120
  622.       Width           =   5055
  623.    End
  624. Attribute VB_Name = "list"
  625. Attribute VB_GlobalNameSpace = False
  626. Attribute VB_Creatable = False
  627. Attribute VB_PredeclaredId = True
  628. Attribute VB_Exposed = False
  629. Private Sub Command1_Click()
  630. list.Visible = False
  631. password.Enabled = True
  632. End Sub
  633.