home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / AA_File_de565532202002.psc / Form1.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  2002-02-20  |  33.8 KB  |  861 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  4. Begin VB.Form Form1 
  5.    BackColor       =   &H00FFFFFF&
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "Tmx Directory Tool Beta 0.1a"
  8.    ClientHeight    =   8310
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   11940
  12.    Icon            =   "Form1.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   8310
  17.    ScaleWidth      =   11940
  18.    StartUpPosition =   3  'Windows Default
  19.    Begin MSComctlLib.ImageList ilist 
  20.       Left            =   8280
  21.       Top             =   480
  22.       _ExtentX        =   1005
  23.       _ExtentY        =   1005
  24.       BackColor       =   -2147483643
  25.       ImageWidth      =   48
  26.       ImageHeight     =   48
  27.       MaskColor       =   12632256
  28.       _Version        =   393216
  29.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  30.          NumListImages   =   53
  31.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  32.             Picture         =   "Form1.frx":0E42
  33.             Key             =   ""
  34.          EndProperty
  35.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  36.             Picture         =   "Form1.frx":1D1E
  37.             Key             =   ""
  38.          EndProperty
  39.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  40.             Picture         =   "Form1.frx":2B72
  41.             Key             =   ""
  42.          EndProperty
  43.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  44.             Picture         =   "Form1.frx":39C6
  45.             Key             =   ""
  46.          EndProperty
  47.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  48.             Picture         =   "Form1.frx":42A2
  49.             Key             =   ""
  50.          EndProperty
  51.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  52.             Picture         =   "Form1.frx":4B7E
  53.             Key             =   ""
  54.          EndProperty
  55.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  56.             Picture         =   "Form1.frx":545A
  57.             Key             =   ""
  58.          EndProperty
  59.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  60.             Picture         =   "Form1.frx":5D36
  61.             Key             =   ""
  62.          EndProperty
  63.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  64.             Picture         =   "Form1.frx":6612
  65.             Key             =   ""
  66.          EndProperty
  67.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  68.             Picture         =   "Form1.frx":6EEE
  69.             Key             =   ""
  70.          EndProperty
  71.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  72.             Picture         =   "Form1.frx":77CA
  73.             Key             =   ""
  74.          EndProperty
  75.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  76.             Picture         =   "Form1.frx":80A6
  77.             Key             =   ""
  78.          EndProperty
  79.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  80.             Picture         =   "Form1.frx":8982
  81.             Key             =   ""
  82.          EndProperty
  83.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  84.             Picture         =   "Form1.frx":925E
  85.             Key             =   ""
  86.          EndProperty
  87.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  88.             Picture         =   "Form1.frx":9B3A
  89.             Key             =   ""
  90.          EndProperty
  91.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  92.             Picture         =   "Form1.frx":A416
  93.             Key             =   ""
  94.          EndProperty
  95.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  96.             Picture         =   "Form1.frx":ACF2
  97.             Key             =   ""
  98.          EndProperty
  99.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  100.             Picture         =   "Form1.frx":B5CE
  101.             Key             =   ""
  102.          EndProperty
  103.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  104.             Picture         =   "Form1.frx":BEAA
  105.             Key             =   ""
  106.          EndProperty
  107.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  108.             Picture         =   "Form1.frx":C786
  109.             Key             =   ""
  110.          EndProperty
  111.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  112.             Picture         =   "Form1.frx":D5DA
  113.             Key             =   ""
  114.          EndProperty
  115.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  116.             Picture         =   "Form1.frx":DEB6
  117.             Key             =   ""
  118.          EndProperty
  119.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  120.             Picture         =   "Form1.frx":E792
  121.             Key             =   ""
  122.          EndProperty
  123.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  124.             Picture         =   "Form1.frx":FF26
  125.             Key             =   ""
  126.          EndProperty
  127.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  128.             Picture         =   "Form1.frx":10E02
  129.             Key             =   ""
  130.          EndProperty
  131.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  132.             Picture         =   "Form1.frx":11CDE
  133.             Key             =   ""
  134.          EndProperty
  135.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  136.             Picture         =   "Form1.frx":125BA
  137.             Key             =   ""
  138.          EndProperty
  139.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  140.             Picture         =   "Form1.frx":13D4E
  141.             Key             =   ""
  142.          EndProperty
  143.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  144.             Picture         =   "Form1.frx":154E2
  145.             Key             =   ""
  146.          EndProperty
  147.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  148.             Picture         =   "Form1.frx":163BE
  149.             Key             =   ""
  150.          EndProperty
  151.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  152.             Picture         =   "Form1.frx":1729A
  153.             Key             =   ""
  154.          EndProperty
  155.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  156.             Picture         =   "Form1.frx":17F76
  157.             Key             =   ""
  158.          EndProperty
  159.          BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  160.             Picture         =   "Form1.frx":18E52
  161.             Key             =   ""
  162.          EndProperty
  163.          BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  164.             Picture         =   "Form1.frx":19D2E
  165.             Key             =   ""
  166.          EndProperty
  167.          BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  168.             Picture         =   "Form1.frx":1AA0A
  169.             Key             =   ""
  170.          EndProperty
  171.          BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  172.             Picture         =   "Form1.frx":1B6E6
  173.             Key             =   ""
  174.          EndProperty
  175.          BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  176.             Picture         =   "Form1.frx":1C3C2
  177.             Key             =   ""
  178.          EndProperty
  179.          BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  180.             Picture         =   "Form1.frx":1D09E
  181.             Key             =   ""
  182.          EndProperty
  183.          BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  184.             Picture         =   "Form1.frx":1DD7A
  185.             Key             =   ""
  186.          EndProperty
  187.          BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  188.             Picture         =   "Form1.frx":1EA56
  189.             Key             =   ""
  190.          EndProperty
  191.          BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  192.             Picture         =   "Form1.frx":1F732
  193.             Key             =   ""
  194.          EndProperty
  195.          BeginProperty ListImage42 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  196.             Picture         =   "Form1.frx":2040E
  197.             Key             =   ""
  198.          EndProperty
  199.          BeginProperty ListImage43 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  200.             Picture         =   "Form1.frx":210EA
  201.             Key             =   ""
  202.          EndProperty
  203.          BeginProperty ListImage44 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  204.             Picture         =   "Form1.frx":21DC6
  205.             Key             =   ""
  206.          EndProperty
  207.          BeginProperty ListImage45 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  208.             Picture         =   "Form1.frx":22AA2
  209.             Key             =   ""
  210.          EndProperty
  211.          BeginProperty ListImage46 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  212.             Picture         =   "Form1.frx":2377E
  213.             Key             =   ""
  214.          EndProperty
  215.          BeginProperty ListImage47 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  216.             Picture         =   "Form1.frx":2445A
  217.             Key             =   ""
  218.          EndProperty
  219.          BeginProperty ListImage48 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  220.             Picture         =   "Form1.frx":25136
  221.             Key             =   ""
  222.          EndProperty
  223.          BeginProperty ListImage49 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  224.             Picture         =   "Form1.frx":25E12
  225.             Key             =   ""
  226.          EndProperty
  227.          BeginProperty ListImage50 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  228.             Picture         =   "Form1.frx":266EE
  229.             Key             =   ""
  230.          EndProperty
  231.          BeginProperty ListImage51 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  232.             Picture         =   "Form1.frx":26FCA
  233.             Key             =   ""
  234.          EndProperty
  235.          BeginProperty ListImage52 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  236.             Picture         =   "Form1.frx":278A6
  237.             Key             =   ""
  238.          EndProperty
  239.          BeginProperty ListImage53 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  240.             Picture         =   "Form1.frx":28782
  241.             Key             =   ""
  242.          EndProperty
  243.       EndProperty
  244.    End
  245.    Begin MSComctlLib.Toolbar Tool 
  246.       Align           =   1  'Align Top
  247.       Height          =   570
  248.       Left            =   0
  249.       TabIndex        =   4
  250.       Top             =   0
  251.       Width           =   11940
  252.       _ExtentX        =   21061
  253.       _ExtentY        =   1005
  254.       ButtonWidth     =   1032
  255.       ButtonHeight    =   1005
  256.       Style           =   1
  257.       ImageList       =   "iconList"
  258.       _Version        =   393216
  259.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  260.          NumButtons      =   11
  261.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  262.             Key             =   "home"
  263.             Object.ToolTipText     =   "Home"
  264.             ImageIndex      =   28
  265.          EndProperty
  266.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  267.             Key             =   "desk"
  268.             Object.ToolTipText     =   "Go to desktop"
  269.             ImageIndex      =   10
  270.          EndProperty
  271.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  272.             Key             =   "drv"
  273.             Object.ToolTipText     =   "Select a new path"
  274.             ImageIndex      =   14
  275.          EndProperty
  276.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  277.             Key             =   "del"
  278.             Object.ToolTipText     =   "Put file in recycle bin"
  279.             ImageIndex      =   7
  280.          EndProperty
  281.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  282.             Key             =   "cpu"
  283.             Object.ToolTipText     =   "Cpu Monitor"
  284.             ImageIndex      =   23
  285.          EndProperty
  286.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  287.             Key             =   "prof"
  288.             Object.ToolTipText     =   "Options : Set your Preferences"
  289.             ImageIndex      =   12
  290.          EndProperty
  291.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  292.             Key             =   "ph"
  293.             Style           =   3
  294.             Object.Width           =   3500
  295.          EndProperty
  296.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  297.             Key             =   "gen"
  298.             Object.ToolTipText     =   "Automaticly genearte description"
  299.             ImageIndex      =   2
  300.          EndProperty
  301.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  302.             Key             =   "clr"
  303.             Object.ToolTipText     =   "Clear Descrpition"
  304.             ImageIndex      =   29
  305.          EndProperty
  306.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  307.             Key             =   "save"
  308.             Object.ToolTipText     =   "Save Desciption"
  309.             ImageIndex      =   27
  310.          EndProperty
  311.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  312.             Key             =   "print"
  313.             Object.ToolTipText     =   "Print description"
  314.             ImageIndex      =   32
  315.          EndProperty
  316.       EndProperty
  317.       Begin MSComctlLib.ImageList iconList 
  318.          Left            =   6360
  319.          Top             =   120
  320.          _ExtentX        =   1005
  321.          _ExtentY        =   1005
  322.          BackColor       =   -2147483643
  323.          ImageWidth      =   32
  324.          ImageHeight     =   32
  325.          MaskColor       =   12632256
  326.          _Version        =   393216
  327.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  328.             NumListImages   =   39
  329.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  330.                Picture         =   "Form1.frx":2905E
  331.                Key             =   ""
  332.             EndProperty
  333.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  334.                Picture         =   "Form1.frx":2993A
  335.                Key             =   ""
  336.             EndProperty
  337.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  338.                Picture         =   "Form1.frx":2A216
  339.                Key             =   ""
  340.             EndProperty
  341.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  342.                Picture         =   "Form1.frx":2AAF2
  343.                Key             =   ""
  344.             EndProperty
  345.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  346.                Picture         =   "Form1.frx":2B3CE
  347.                Key             =   ""
  348.             EndProperty
  349.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  350.                Picture         =   "Form1.frx":2BCAA
  351.                Key             =   ""
  352.             EndProperty
  353.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  354.                Picture         =   "Form1.frx":2C586
  355.                Key             =   ""
  356.             EndProperty
  357.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  358.                Picture         =   "Form1.frx":2CE62
  359.                Key             =   ""
  360.             EndProperty
  361.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  362.                Picture         =   "Form1.frx":2D73E
  363.                Key             =   ""
  364.             EndProperty
  365.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  366.                Picture         =   "Form1.frx":2E01A
  367.                Key             =   ""
  368.             EndProperty
  369.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  370.                Picture         =   "Form1.frx":2EE6E
  371.                Key             =   ""
  372.             EndProperty
  373.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  374.                Picture         =   "Form1.frx":2F74A
  375.                Key             =   ""
  376.             EndProperty
  377.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  378.                Picture         =   "Form1.frx":30026
  379.                Key             =   ""
  380.             EndProperty
  381.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  382.                Picture         =   "Form1.frx":30E7A
  383.                Key             =   ""
  384.             EndProperty
  385.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  386.                Picture         =   "Form1.frx":31756
  387.                Key             =   ""
  388.             EndProperty
  389.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  390.                Picture         =   "Form1.frx":32032
  391.                Key             =   ""
  392.             EndProperty
  393.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  394.                Picture         =   "Form1.frx":32D0E
  395.                Key             =   ""
  396.             EndProperty
  397.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  398.                Picture         =   "Form1.frx":335EA
  399.                Key             =   ""
  400.             EndProperty
  401.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  402.                Picture         =   "Form1.frx":342C6
  403.                Key             =   ""
  404.             EndProperty
  405.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  406.                Picture         =   "Form1.frx":34BA2
  407.                Key             =   ""
  408.             EndProperty
  409.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  410.                Picture         =   "Form1.frx":3547E
  411.                Key             =   ""
  412.             EndProperty
  413.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  414.                Picture         =   "Form1.frx":3615A
  415.                Key             =   ""
  416.             EndProperty
  417.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  418.                Picture         =   "Form1.frx":36A36
  419.                Key             =   ""
  420.             EndProperty
  421.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  422.                Picture         =   "Form1.frx":37312
  423.                Key             =   ""
  424.             EndProperty
  425.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  426.                Picture         =   "Form1.frx":37BEE
  427.                Key             =   ""
  428.             EndProperty
  429.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  430.                Picture         =   "Form1.frx":388CA
  431.                Key             =   ""
  432.             EndProperty
  433.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  434.                Picture         =   "Form1.frx":395A6
  435.                Key             =   ""
  436.             EndProperty
  437.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  438.                Picture         =   "Form1.frx":39E82
  439.                Key             =   ""
  440.             EndProperty
  441.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  442.                Picture         =   "Form1.frx":3A75E
  443.                Key             =   ""
  444.             EndProperty
  445.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  446.                Picture         =   "Form1.frx":3B43A
  447.                Key             =   ""
  448.             EndProperty
  449.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  450.                Picture         =   "Form1.frx":3BD16
  451.                Key             =   ""
  452.             EndProperty
  453.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  454.                Picture         =   "Form1.frx":3C5F2
  455.                Key             =   ""
  456.             EndProperty
  457.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  458.                Picture         =   "Form1.frx":3CECE
  459.                Key             =   ""
  460.             EndProperty
  461.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  462.                Picture         =   "Form1.frx":3D7AA
  463.                Key             =   ""
  464.             EndProperty
  465.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  466.                Picture         =   "Form1.frx":3E086
  467.                Key             =   ""
  468.             EndProperty
  469.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  470.                Picture         =   "Form1.frx":3E962
  471.                Key             =   ""
  472.             EndProperty
  473.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  474.                Picture         =   "Form1.frx":3F23E
  475.                Key             =   ""
  476.             EndProperty
  477.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  478.                Picture         =   "Form1.frx":3FB1A
  479.                Key             =   ""
  480.             EndProperty
  481.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  482.                Picture         =   "Form1.frx":403F6
  483.                Key             =   ""
  484.             EndProperty
  485.          EndProperty
  486.       End
  487.    End
  488.    Begin VB.Frame Frame2 
  489.       BackColor       =   &H80000009&
  490.       Caption         =   "File Info "
  491.       Height          =   1695
  492.       Left            =   240
  493.       TabIndex        =   2
  494.       Top             =   6600
  495.       Width           =   11655
  496.       Begin VB.CommandButton SetBtn 
  497.          Caption         =   "Set Attibutes"
  498.          Height          =   195
  499.          Left            =   9120
  500.          TabIndex        =   16
  501.          Top             =   1440
  502.          Width           =   2175
  503.       End
  504.       Begin VB.CheckBox Check8 
  505.          Caption         =   "Normal"
  506.          Height          =   255
  507.          Left            =   10200
  508.          TabIndex        =   15
  509.          Top             =   1080
  510.          Width           =   1335
  511.       End
  512.       Begin VB.CheckBox Check7 
  513.          Caption         =   "Read-Only"
  514.          CausesValidation=   0   'False
  515.          Height          =   255
  516.          Left            =   10200
  517.          TabIndex        =   14
  518.          Top             =   840
  519.          Width           =   1335
  520.       End
  521.       Begin VB.CheckBox Check6 
  522.          Caption         =   "hidden"
  523.          Height          =   255
  524.          Left            =   10200
  525.          TabIndex        =   13
  526.          Top             =   600
  527.          Width           =   1335
  528.       End
  529.       Begin VB.CheckBox Check5 
  530.          Caption         =   "system"
  531.          Height          =   255
  532.          Left            =   10200
  533.          TabIndex        =   12
  534.          Top             =   360
  535.          Width           =   1335
  536.       End
  537.       Begin VB.CheckBox Check4 
  538.          Caption         =   "Volume"
  539.          Height          =   255
  540.          Left            =   8760
  541.          TabIndex        =   11
  542.          Top             =   1080
  543.          Width           =   1455
  544.       End
  545.       Begin VB.CheckBox Check3 
  546.          Caption         =   "Directory"
  547.          Height          =   255
  548.          Left            =   8760
  549.          TabIndex        =   10
  550.          Top             =   840
  551.          Width           =   1455
  552.       End
  553.       Begin VB.CheckBox Check2 
  554.          Caption         =   "Archive"
  555.          Height          =   255
  556.          Left            =   8760
  557.          TabIndex        =   9
  558.          Top             =   600
  559.          Width           =   1455
  560.       End
  561.       Begin VB.CheckBox Check1 
  562.          Caption         =   "Alias"
  563.          Height          =   255
  564.          Left            =   8760
  565.          TabIndex        =   8
  566.          Top             =   360
  567.          Width           =   1455
  568.       End
  569.       Begin VB.PictureBox desic 
  570.          Appearance      =   0  'Flat
  571.          AutoRedraw      =   -1  'True
  572.          BackColor       =   &H80000005&
  573.          BorderStyle     =   0  'None
  574.          ForeColor       =   &H80000008&
  575.          Height          =   735
  576.          Left            =   120
  577.          ScaleHeight     =   735
  578.          ScaleWidth      =   735
  579.          TabIndex        =   5
  580.          Top             =   240
  581.          Width           =   735
  582.       End
  583.       Begin VB.Image Image1 
  584.          Height          =   1095
  585.          Left            =   5760
  586.          Stretch         =   -1  'True
  587.          Top             =   360
  588.          Width           =   2055
  589.       End
  590.       Begin VB.Line Line3 
  591.          X1              =   1200
  592.          X2              =   4920
  593.          Y1              =   480
  594.          Y2              =   480
  595.       End
  596.       Begin VB.Label Label5 
  597.          Caption         =   "Label5"
  598.          Height          =   255
  599.          Left            =   1440
  600.          TabIndex        =   19
  601.          Top             =   1320
  602.          Width           =   3135
  603.       End
  604.       Begin VB.Label Label4 
  605.          Caption         =   "Label4"
  606.          Height          =   255
  607.          Left            =   1440
  608.          TabIndex        =   18
  609.          Top             =   960
  610.          Width           =   3135
  611.       End
  612.       Begin VB.Label Label3 
  613.          Caption         =   "Label3"
  614.          Height          =   255
  615.          Left            =   1440
  616.          TabIndex        =   17
  617.          Top             =   600
  618.          Width           =   3135
  619.       End
  620.       Begin VB.Line Line2 
  621.          X1              =   8640
  622.          X2              =   8640
  623.          Y1              =   120
  624.          Y2              =   1680
  625.       End
  626.       Begin VB.Label Label2 
  627.          BackColor       =   &H8000000E&
  628.          BeginProperty Font 
  629.             Name            =   "Trebuchet MS"
  630.             Size            =   14.25
  631.             Charset         =   0
  632.             Weight          =   700
  633.             Underline       =   0   'False
  634.             Italic          =   -1  'True
  635.             Strikethrough   =   0   'False
  636.          EndProperty
  637.          ForeColor       =   &H00404040&
  638.          Height          =   375
  639.          Left            =   120
  640.          TabIndex        =   7
  641.          Top             =   1080
  642.          Width           =   735
  643.       End
  644.       Begin VB.Line Line1 
  645.          X1              =   960
  646.          X2              =   960
  647.          Y1              =   120
  648.          Y2              =   1680
  649.       End
  650.       Begin VB.Label Label1 
  651.          BackColor       =   &H80000009&
  652.          Caption         =   "Label1"
  653.          Height          =   255
  654.          Left            =   1440
  655.          TabIndex        =   6
  656.          Top             =   240
  657.          Width           =   3135
  658.       End
  659.    End
  660.    Begin VB.Frame Fdes 
  661.       BackColor       =   &H00FFFFFF&
  662.       Caption         =   "File Description"
  663.       Height          =   5655
  664.       Left            =   5520
  665.       TabIndex        =   1
  666.       Top             =   840
  667.       Width           =   6375
  668.       Begin RichTextLib.RichTextBox Des 
  669.          Height          =   5295
  670.          Left            =   120
  671.          TabIndex        =   3
  672.          Top             =   240
  673.          Width           =   6135
  674.          _ExtentX        =   10821
  675.          _ExtentY        =   9340
  676.          _Version        =   393217
  677.          AutoVerbMenu    =   -1  'True
  678.          TextRTF         =   $"Form1.frx":40CD2
  679.       End
  680.    End
  681.    Begin VB.FileListBox File1 
  682.       Height          =   5550
  683.       Left            =   0
  684.       TabIndex        =   0
  685.       Top             =   960
  686.       Width           =   5415
  687.    End
  688.    Begin VB.Label Label6 
  689.       BackColor       =   &H80000009&
  690.       Height          =   255
  691.       Left            =   0
  692.       TabIndex        =   20
  693.       Top             =   720
  694.       Width           =   5175
  695.    End
  696. Attribute VB_Name = "Form1"
  697. Attribute VB_GlobalNameSpace = False
  698. Attribute VB_Creatable = False
  699. Attribute VB_PredeclaredId = True
  700. Attribute VB_Exposed = False
  701. Dim Exte As String
  702. Dim FFname As String
  703. Dim Fpath As String
  704. Private Sub File1_Click()
  705. Exte = GetFileExt(File1.filename)
  706.  If Right(File1.Path, 1) <> "\" Then FFname = File1.Path & "\" & File1.filename Else FFname = File1.Path & File1.filename
  707. LoadIcon (Exte)
  708. Label2.Caption = UCase(Exte)
  709. Label1.Caption = GetFnameWITHOUText(File1.filename)
  710. GetAttributes FFname
  711. Check1.Value = at9Fe1.filename)
  712. GetAttributes FFname
  713. 1GutoVerbMenu    =   -1  'T4             =   360
  714.          Width           =   2055
  715.       End
  716.       Begin VB.Line Line3 
  717.        egin V:36A36
  718.              4   360
  719.          Width         Lr>62M9.ine3 2Cim E7Ise
  720. Dim Exte As String
  721. Dim FFname As String
  722. Dim Fpath As String
  723. Private Sub File1_Click()
  724. Exte = GetFght2I9.deck1.Value e FFname
  725. 1Gutttribu9     Begin VB.Line Line3 
  726.        egin V:36A36
  727.              4   360
  728.          Width         Lr>62M9.ine3 2Cim Eub File1_Click()
  729. Exte = 362M9.ine3 ()
  730. Exte = 362M9.ine3 ()
  731. Exte = 362M9.ine3 ()
  732. Exte = 362M9.ine3 ()
  733. Exte = 362M9.ine3 ()
  734. Exte = 362M9.in.I    Wid2M9. 362E3 ()
  735. in.I    Wine3 ()
  736.       Begin VB.Line Line3 
  737.        egin Vth 3 . E01s09&a6ml3 :36A36
  738.              4   360
  739.          Width         Lr>62M9.ine3 2Cim Eub File1_Crn=   5415
  740.    = 362A6 Fi TabIndex        =   0
  741.       Top             =   960
  742.       Width           =   54.Line Li9      C0O6m   4   360
  743.          Width         Lr>62M9.ine3 2Cim E7Ise
  744. Dim Exte As String
  745. Dim FFname As String
  746. Dim Fpath As1seV02tHoELmpath As
  747. Dim5m          =   960
  748. im E7Ise
  749. Dimpath As1seV02tHoELmpath As
  750. Dim5m          =   960
  751. im E7Ise
  752. Dimpath As1seV02tHoELmpath As
  753. Dim53 2cr>62sDim Exte As String
  754. Dim FFname As String
  755. Dim Fpath As1seV02tHoELmpath As
  756. Dim5m          =   960
  757. abIndex        =   0
  758.       Top             =   960
  759.       Width           =   54.Lin=   20
  760. Iath As
  761. Dim53 2cr>6Iha    =   54.Lin=   20
  762. Iath As
  763. Dim5 E7Dimne9m5 E7Dimne9m5 E7Dimne9         X1      m5 E7Dimne9    Emne9       =   0
  764.       Top             =   960
  765.       Width           =   54.Lin=   20
  766. Iath As
  767. Dimu4.LEmne9   Emne9   Emne9   Emne9   Emne9   Emne9   Emne9   Emne9   Emne9   Emne9   Emne9   Emne9   E          =   960
  768.       Width           =   54.Lin=   20
  769. Iath As
  770. Dim53 2cr>6Iha    =   54.L7-& r>6Iha    =   54.L7-& r>6Iha    =   54.L7-& r>6IeiAs
  771. Dim5m          =   960
  772. im E7Is9   Em   Height              eB4m6e9  ath As
  773. Dim53 m8 Height              eB4m6e9  ath As
  774. Dim53 m8 Height              eB4m6e9  ath As
  775. Dim53 m8 9  =   205505 & r>6IeiAs
  776. Dim5m          =   960
  777. im E7Is9   Em   Height              eB4m6e9  ath As
  778. Dim54Fm5""de
  779. Private Sub File1_ m5 E7Dimne9  
  780.             EndProperty
  781.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  782. ley=   9moosA-00C0F02832p0F02t2I9.deck1.Value e FFname
  783. 1Gutttribu9     Begin VB.Line Line3 
  784.        egin V:36A36
  785.      &= UCase(Exte)
  786. Label1.Caption = 1Eo5
  787.          Image35 {28ge35 {28ge35 {28ge35 {28ge35 {28ge35 {28ge35 {28ge35 {28ge35 {28ge35 {28ge35 {28ge35 {28{28ge35 {TX1      m5 E71xha   "File Description"
  788.       Height          =   5655
  789.       Left            =   5520
  790.       TabIndex t            =   5520
  791.       TabIndex t      Height          =   5655
  792.    IbS1d112ba(h933m   Height              eB4m6e9  ath As
  793. Dim53 m8 Height              eB4m6e9  ath As
  794. Dim53 m8 Heit                    Lr>62M9.ine3 2Cim E7Ise
  795. Dim Exte As String
  796. Dim FFname As StrBe2o   Be2o   Be2   yroVe          =   4   =   5655
  797.    IbS1d112ba(h933m   Height              eB4m6e9  ath As
  798. Dim53 m8 Height        B4m6e9  ath As
  799. Dim53 m8bbel2 
  800. eaLk1.Value e FbLr>62M9.ine.ecaF4 l8e          =   4   =   5655
  801.    IbS1d112ba(h933m   HeliE7Dimn  =   lii_s     L 255
  802.       Left            =   0
  803.       TabIndex        =   20
  804.       Top             =   720
  805.     m6i   Width    E
  806.       Left1.Value Eda0 FbLr>62M9.ine.ecaF4 l8e   a5oDim5m          =   960
  807. im E7Is9   Em   Height              eB4m6e9  ath As
  808. Dim54Fm5  m6i   Width    8      =   1440
  809.          TabIndex        =   19
  810.          Top             =   1320
  811.      9p u8tt       =   1320
  812.      9p u8tt       =   1320
  813.      9p u8tt       =   1320
  814.      9p u8tt       =   1320
  815.    y12tHsHeight              eB4m6e9  ath As
  816. Dim53 m8 Height              eB4m6e9  ath As
  817. Dim53 hHr004m6e9  ath As
  818. Dim53 m8 Height    r  93 m8 Height   _              eB4m6e9  ath Dim53 m8 HeigW HeigW HeigW He1.Value e FFname
  819. 1Gutttribu9     Begin VB.Line Line3 
  820.        egin V:36A36
  821.      &= UCase(Exte)
  822. Label1.Caption =u&WCloi 6e9  ath Dim53 m8 HeigW HeigW HeigW He1.Value e FFname
  823. 1Gutttribu9     Begin VB.Line Line3 
  824.     su9   -6egin VB.Line Line3 
  825.     su9   -6egin VB.Line Line3 
  826.     su9   -6egin VB.Line3eLine Line3 
  827. sFer5B.Line3eLine Line3 
  828. sFer5B.Line3eLine Line3 
  829. sFer5B.Line3eLine Line3 
  830. sFer5B.Line3eLine Line3 
  831. sFer5B.Le3 
  832. sFer5B.Le3 
  833. sFer5B.Le3 
  834. sFer5B.Le3 
  835. sFer5B.Le3 
  836. sFer5B.L.0Lpmp u8tt       =GutoVene3ennim53 m8 Height      =  lBbIndex t            =   5520
  837.       TabIndex t      Height          =   5655
  838.    IbS1d112ba(h933m   Height       lht      =  lBbIndex t            =   5520
  839.   vhsosa  Lg.h      =   5655
  840.    IbS1d112ba(h933m   Height   et MS"
  841.     ine3eLine Line3 
  842. sFer5B.Le3 
  843. sFer5B.Le3 
  844. sFer5B.Le3 
  845. sFer5B.Le3 
  846. sFer5B.Le3 
  847. sFer5B.L.0Lpmp u8tt       = Line3 
  848. sFer4  =   10821
  849.          _ExtentY        =   9340
  850.          _Version        =   393217
  851.          AutoVerbMenu 1i      =   hta8      =  
  852. sFer4  =  .Le3 
  853. sFer5B.L.0Lpmp u8tt       = Line3 
  854. sFer4  =   10821
  855.          _ExtentY        =   9340
  856. Dh A 60
  857.    ua}s  Caption   0t0s7    =esFer4  =  .Le3 
  858. sFer5B.L.0Lpmp u8tt       = Line3 
  859. sFer4  =   10821
  860.          _ExtentY        =   ile D8BbV8   =esFer4  =  .Le       =   4   =
  861.