home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Virtual_En19489111162005.psc / Form1.frm < prev   
Text File  |  2005-10-24  |  25KB  |  639 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
  4. Begin VB.Form frmMain 
  5.    Caption         =   "VIRTUAL ENCRYPTED DISK UTILITY v2.0"
  6.    ClientHeight    =   6825
  7.    ClientLeft      =   60
  8.    ClientTop       =   450
  9.    ClientWidth     =   10335
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "Form1.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    ScaleHeight     =   6825
  22.    ScaleWidth      =   10335
  23.    StartUpPosition =   2  'CenterScreen
  24.    Begin VB.Frame frmAdvanced 
  25.       BorderStyle     =   0  'None
  26.       Height          =   4455
  27.       Left            =   240
  28.       TabIndex        =   5
  29.       Top             =   1800
  30.       Visible         =   0   'False
  31.       Width           =   9855
  32.       Begin VB.Frame Frame6 
  33.          Height          =   375
  34.          Left            =   3840
  35.          TabIndex        =   14
  36.          Top             =   3600
  37.          Width           =   5900
  38.          Begin VB.Label lblCurrentFile 
  39.             BackColor       =   &H80000005&
  40.             Caption         =   " Current File: N/A"
  41.             BeginProperty Font 
  42.                Name            =   "Tahoma"
  43.                Size            =   8.25
  44.                Charset         =   0
  45.                Weight          =   700
  46.                Underline       =   0   'False
  47.                Italic          =   0   'False
  48.                Strikethrough   =   0   'False
  49.             EndProperty
  50.             Height          =   240
  51.             Left            =   15
  52.             TabIndex        =   15
  53.             Top             =   105
  54.             Width           =   5850
  55.          End
  56.       End
  57.       Begin VB.Frame Frame4 
  58.          Height          =   375
  59.          Left            =   120
  60.          TabIndex        =   12
  61.          Top             =   3600
  62.          Width           =   3600
  63.          Begin VB.Label lblOperation 
  64.             BackColor       =   &H80000005&
  65.             Caption         =   " Operation: Ready..."
  66.             BeginProperty Font 
  67.                Name            =   "Tahoma"
  68.                Size            =   8.25
  69.                Charset         =   0
  70.                Weight          =   700
  71.                Underline       =   0   'False
  72.                Italic          =   0   'False
  73.                Strikethrough   =   0   'False
  74.             EndProperty
  75.             Height          =   240
  76.             Left            =   15
  77.             TabIndex        =   13
  78.             Top             =   105
  79.             Width           =   3555
  80.          End
  81.       End
  82.       Begin VB.Frame Frame3 
  83.          Height          =   975
  84.          Left            =   3240
  85.          TabIndex        =   10
  86.          Top             =   2160
  87.          Width           =   3375
  88.          Begin VB.CommandButton cmdAdvanced 
  89.             Caption         =   "Create virtual drive"
  90.             Enabled         =   0   'False
  91.             BeginProperty Font 
  92.                Name            =   "Tahoma"
  93.                Size            =   8.25
  94.                Charset         =   0
  95.                Weight          =   700
  96.                Underline       =   0   'False
  97.                Italic          =   0   'False
  98.                Strikethrough   =   0   'False
  99.             EndProperty
  100.             Height          =   850
  101.             Left            =   10
  102.             TabIndex        =   11
  103.             Top             =   110
  104.             Width           =   3340
  105.          End
  106.       End
  107.       Begin VB.Frame Frame1 
  108.          BeginProperty Font 
  109.             Name            =   "MS Sans Serif"
  110.             Size            =   8.25
  111.             Charset         =   0
  112.             Weight          =   400
  113.             Underline       =   0   'False
  114.             Italic          =   0   'False
  115.             Strikethrough   =   0   'False
  116.          EndProperty
  117.          Height          =   1575
  118.          Left            =   120
  119.          TabIndex        =   7
  120.          Top             =   120
  121.          Width           =   9615
  122.          Begin VB.Label lblAdvancedDescription 
  123.             Alignment       =   2  'Center
  124.             BackColor       =   &H80000018&
  125.             BeginProperty Font 
  126.                Name            =   "Tahoma"
  127.                Size            =   9.75
  128.                Charset         =   0
  129.                Weight          =   700
  130.                Underline       =   0   'False
  131.                Italic          =   0   'False
  132.                Strikethrough   =   0   'False
  133.             EndProperty
  134.             Height          =   975
  135.             Left            =   120
  136.             TabIndex        =   8
  137.             Top             =   345
  138.             Width           =   9255
  139.          End
  140.          Begin VB.Label Label1 
  141.             BackColor       =   &H80000018&
  142.             BeginProperty Font 
  143.                Name            =   "MS Sans Serif"
  144.                Size            =   8.25
  145.                Charset         =   0
  146.                Weight          =   400
  147.                Underline       =   0   'False
  148.                Italic          =   0   'False
  149.                Strikethrough   =   0   'False
  150.             EndProperty
  151.             Height          =   1440
  152.             Left            =   15
  153.             TabIndex        =   9
  154.             Top             =   105
  155.             Width           =   9570
  156.          End
  157.       End
  158.       Begin vDisk.XP_ProgressBar XP_ProgressBar1 
  159.          Height          =   255
  160.          Left            =   120
  161.          TabIndex        =   6
  162.          Top             =   4080
  163.          Width           =   9615
  164.          _ExtentX        =   16960
  165.          _ExtentY        =   450
  166.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  167.             Name            =   "Tahoma"
  168.             Size            =   8.25
  169.             Charset         =   0
  170.             Weight          =   400
  171.             Underline       =   0   'False
  172.             Italic          =   0   'False
  173.             Strikethrough   =   0   'False
  174.          EndProperty
  175.          BrushStyle      =   0
  176.          Color           =   12937777
  177.          Scrolling       =   1
  178.          ShowText        =   -1  'True
  179.       End
  180.    End
  181.    Begin VB.Frame Frame2 
  182.       BeginProperty Font 
  183.          Name            =   "MS Sans Serif"
  184.          Size            =   8.25
  185.          Charset         =   0
  186.          Weight          =   400
  187.          Underline       =   0   'False
  188.          Italic          =   0   'False
  189.          Strikethrough   =   0   'False
  190.       EndProperty
  191.       Height          =   4455
  192.       Left            =   240
  193.       TabIndex        =   3
  194.       Top             =   1800
  195.       Width           =   9855
  196.       Begin MSComctlLib.ImageList imgFiles 
  197.          Left            =   6120
  198.          Top             =   1080
  199.          _ExtentX        =   1005
  200.          _ExtentY        =   1005
  201.          BackColor       =   -2147483643
  202.          ImageWidth      =   16
  203.          ImageHeight     =   16
  204.          MaskColor       =   16711935
  205.          UseMaskColor    =   0   'False
  206.          _Version        =   393216
  207.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  208.             NumListImages   =   8
  209.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  210.                Picture         =   "Form1.frx":1CFA
  211.                Key             =   ""
  212.             EndProperty
  213.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  214.                Picture         =   "Form1.frx":2294
  215.                Key             =   ""
  216.             EndProperty
  217.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  218.                Picture         =   "Form1.frx":282E
  219.                Key             =   ""
  220.             EndProperty
  221.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  222.                Picture         =   "Form1.frx":2DC8
  223.                Key             =   ""
  224.             EndProperty
  225.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  226.                Picture         =   "Form1.frx":3362
  227.                Key             =   ""
  228.             EndProperty
  229.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  230.                Picture         =   "Form1.frx":38FC
  231.                Key             =   ""
  232.             EndProperty
  233.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  234.                Picture         =   "Form1.frx":3E96
  235.                Key             =   ""
  236.             EndProperty
  237.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  238.                Picture         =   "Form1.frx":4430
  239.                Key             =   ""
  240.             EndProperty
  241.          EndProperty
  242.       End
  243.       Begin MSComctlLib.ListView lstFiles 
  244.          Height          =   4320
  245.          Left            =   15
  246.          TabIndex        =   4
  247.          Top             =   105
  248.          Width           =   9810
  249.          _ExtentX        =   17304
  250.          _ExtentY        =   7620
  251.          View            =   3
  252.          LabelEdit       =   1
  253.          LabelWrap       =   -1  'True
  254.          HideSelection   =   0   'False
  255.          FullRowSelect   =   -1  'True
  256.          GridLines       =   -1  'True
  257.          PictureAlignment=   3
  258.          _Version        =   393217
  259.          SmallIcons      =   "imgFiles"
  260.          ForeColor       =   -2147483640
  261.          BackColor       =   -2147483643
  262.          Appearance      =   0
  263.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  264.             Name            =   "Tahoma"
  265.             Size            =   8.25
  266.             Charset         =   0
  267.             Weight          =   400
  268.             Underline       =   0   'False
  269.             Italic          =   0   'False
  270.             Strikethrough   =   0   'False
  271.          EndProperty
  272.          NumItems        =   4
  273.          BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  274.             Text            =   "File Name"
  275.             Object.Width           =   6546
  276.          EndProperty
  277.          BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  278.             Alignment       =   1
  279.             SubItemIndex    =   1
  280.             Text            =   "Size"
  281.             Object.Width           =   2540
  282.          EndProperty
  283.          BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  284.             Alignment       =   1
  285.             SubItemIndex    =   2
  286.             Text            =   "Creation Date"
  287.             Object.Width           =   2734
  288.          EndProperty
  289.          BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  290.             Alignment       =   1
  291.             SubItemIndex    =   3
  292.             Text            =   "Checksum"
  293.             Object.Width           =   2540
  294.          EndProperty
  295.          Picture         =   "Form1.frx":49CA
  296.       End
  297.    End
  298.    Begin MSComctlLib.TabStrip TabStrip1 
  299.       Height          =   4935
  300.       Left            =   120
  301.       TabIndex        =   2
  302.       Top             =   1440
  303.       Width           =   10095
  304.       _ExtentX        =   17806
  305.       _ExtentY        =   8705
  306.       MultiRow        =   -1  'True
  307.       _Version        =   393216
  308.       BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
  309.          NumTabs         =   2
  310.          BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  311.             Caption         =   "Simple Mode"
  312.             Key             =   "kSimpleMode"
  313.             ImageVarType    =   2
  314.          EndProperty
  315.          BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  316.             Caption         =   "Advanced Mode"
  317.             Key             =   "kAdvancedMode"
  318.             ImageVarType    =   2
  319.          EndProperty
  320.       EndProperty
  321.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  322.          Name            =   "Tahoma"
  323.          Size            =   9
  324.          Charset         =   0
  325.          Weight          =   700
  326.          Underline       =   0   'False
  327.          Italic          =   0   'False
  328.          Strikethrough   =   0   'False
  329.       EndProperty
  330.    End
  331.    Begin MSComDlg.CommonDialog dlgMount 
  332.       Left            =   4920
  333.       Top             =   0
  334.       _ExtentX        =   847
  335.       _ExtentY        =   847
  336.       _Version        =   393216
  337.    End
  338.    Begin MSComctlLib.StatusBar stbMount 
  339.       Align           =   2  'Align Bottom
  340.       Height          =   300
  341.       Left            =   0
  342.       TabIndex        =   0
  343.       Top             =   6525
  344.       Width           =   10335
  345.       _ExtentX        =   18230
  346.       _ExtentY        =   529
  347.       _Version        =   393216
  348.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  349.          NumPanels       =   3
  350.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  351.             AutoSize        =   1
  352.             Bevel           =   2
  353.             Object.Width           =   12647
  354.             MinWidth        =   2646
  355.             Text            =   "No Virtual Disk Mounted"
  356.             TextSave        =   "No Virtual Disk Mounted"
  357.          EndProperty
  358.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  359.             Alignment       =   1
  360.             AutoSize        =   2
  361.             Text            =   "Label: N/A"
  362.             TextSave        =   "Label: N/A"
  363.          EndProperty
  364.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  365.             Alignment       =   1
  366.             AutoSize        =   2
  367.             Object.Width           =   2461
  368.             MinWidth        =   2470
  369.             Text            =   "Size: N/A"
  370.             TextSave        =   "Size: N/A"
  371.          EndProperty
  372.       EndProperty
  373.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  374.          Name            =   "Tahoma"
  375.          Size            =   8.25
  376.          Charset         =   0
  377.          Weight          =   700
  378.          Underline       =   0   'False
  379.          Italic          =   0   'False
  380.          Strikethrough   =   0   'False
  381.       EndProperty
  382.    End
  383.    Begin MSComctlLib.ImageList lstMenuDisabled 
  384.       Left            =   6000
  385.       Top             =   600
  386.       _ExtentX        =   1005
  387.       _ExtentY        =   1005
  388.       BackColor       =   -2147483643
  389.       ImageWidth      =   64
  390.       ImageHeight     =   64
  391.       MaskColor       =   16711935
  392.       _Version        =   393216
  393.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  394.          NumListImages   =   8
  395.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  396.             Picture         =   "Form1.frx":27AC4
  397.             Key             =   ""
  398.          EndProperty
  399.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  400.             Picture         =   "Form1.frx":2AB16
  401.             Key             =   ""
  402.          EndProperty
  403.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  404.             Picture         =   "Form1.frx":2DB68
  405.             Key             =   ""
  406.          EndProperty
  407.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  408.             Picture         =   "Form1.frx":30BBA
  409.             Key             =   ""
  410.          EndProperty
  411.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  412.             Picture         =   "Form1.frx":33C0C
  413.             Key             =   ""
  414.          EndProperty
  415.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  416.             Picture         =   "Form1.frx":36C5E
  417.             Key             =   ""
  418.          EndProperty
  419.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  420.             Picture         =   "Form1.frx":39CB0
  421.             Key             =   ""
  422.          EndProperty
  423.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  424.             Picture         =   "Form1.frx":3CD02
  425.             Key             =   ""
  426.          EndProperty
  427.       EndProperty
  428.    End
  429.    Begin MSComctlLib.ImageList lstMenu2 
  430.       Left            =   5400
  431.       Top             =   600
  432.       _ExtentX        =   1005
  433.       _ExtentY        =   1005
  434.       BackColor       =   -2147483643
  435.       ImageWidth      =   64
  436.       ImageHeight     =   64
  437.       MaskColor       =   16711935
  438.       _Version        =   393216
  439.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  440.          NumListImages   =   8
  441.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  442.             Picture         =   "Form1.frx":3FD54
  443.             Key             =   ""
  444.          EndProperty
  445.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  446.             Picture         =   "Form1.frx":42DA6
  447.             Key             =   ""
  448.          EndProperty
  449.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  450.             Picture         =   "Form1.frx":45DF8
  451.             Key             =   ""
  452.          EndProperty
  453.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  454.             Picture         =   "Form1.frx":48E4A
  455.             Key             =   ""
  456.          EndProperty
  457.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  458.             Picture         =   "Form1.frx":4BE9C
  459.             Key             =   ""
  460.          EndProperty
  461.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  462.             Picture         =   "Form1.frx":4EEEE
  463.             Key             =   ""
  464.          EndProperty
  465.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  466.             Picture         =   "Form1.frx":51F40
  467.             Key             =   ""
  468.          EndProperty
  469.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  470.             Picture         =   "Form1.frx":54F92
  471.             Key             =   ""
  472.          EndProperty
  473.       EndProperty
  474.    End
  475.    Begin MSComctlLib.ImageList lstMenu1 
  476.       Left            =   4800
  477.       Top             =   600
  478.       _ExtentX        =   1005
  479.       _ExtentY        =   1005
  480.       BackColor       =   -2147483643
  481.       ImageWidth      =   64
  482.       ImageHeight     =   64
  483.       MaskColor       =   16711935
  484.       _Version        =   393216
  485.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  486.          NumListImages   =   8
  487.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  488.             Picture         =   "Form1.frx":57FE4
  489.             Key             =   ""
  490.          EndProperty
  491.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  492.             Picture         =   "Form1.frx":5B036
  493.             Key             =   ""
  494.          EndProperty
  495.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  496.             Picture         =   "Form1.frx":5E088
  497.             Key             =   ""
  498.          EndProperty
  499.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  500.             Picture         =   "Form1.frx":610DA
  501.             Key             =   ""
  502.          EndProperty
  503.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  504.             Picture         =   "Form1.frx":6412C
  505.             Key             =   ""
  506.          EndProperty
  507.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  508.             Picture         =   "Form1.frx":6717E
  509.             Key             =   ""
  510.          EndProperty
  511.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  512.             Picture         =   "Form1.frx":6A1D0
  513.             Key             =   ""
  514.          EndProperty
  515.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  516.             Picture         =   "Form1.frx":6D222
  517.             Key             =   ""
  518.          EndProperty
  519.       EndProperty
  520.    End
  521.    Begin MSComctlLib.Toolbar tlbMenu 
  522.       Align           =   1  'Align Top
  523.       Height          =   1290
  524.       Left            =   0
  525.       TabIndex        =   1
  526.       Top             =   0
  527.       Width           =   10335
  528.       _ExtentX        =   18230
  529.       _ExtentY        =   2275
  530.       ButtonWidth     =   2170
  531.       ButtonHeight    =   2223
  532.       Appearance      =   1
  533.       Style           =   1
  534.       ImageList       =   "lstMenu1"
  535.       DisabledImageList=   "lstMenuDisabled"
  536.       HotImageList    =   "lstMenu2"
  537.       _Version        =   393216
  538.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  539.          NumButtons      =   10
  540.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  541.             Caption         =   "Mount VDISK"
  542.             Key             =   "kMountVDISK"
  543.             Object.ToolTipText     =   "Mount an existing Virtual Disk"
  544.             ImageIndex      =   1
  545.          EndProperty
  546.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  547.             Enabled         =   0   'False
  548.             Caption         =   "Unmount VDISK"
  549.             Key             =   "kUnmountVDISK"
  550.             ImageIndex      =   2
  551.          EndProperty
  552.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  553.             Caption         =   "Create VDISK"
  554.             Key             =   "kCreateVDISK"
  555.             Object.ToolTipText     =   "Create a new Virtual Disk"
  556.             ImageIndex      =   3
  557.          EndProperty
  558.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  559.             Enabled         =   0   'False
  560.             Caption         =   "Volume Info"
  561.             Key             =   "kVolumeInfo"
  562.             Object.ToolTipText     =   "Show Virtual Disk volume information"
  563.             ImageIndex      =   4
  564.          EndProperty
  565.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  566.             Style           =   3
  567.          EndProperty
  568.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  569.             Enabled         =   0   'False
  570.             Caption         =   "Add File"
  571.             Key             =   "kAddFile"
  572.             Object.ToolTipText     =   "Add a new file to Virtual Disk"
  573.             ImageIndex      =   5
  574.          EndProperty
  575.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  576.             Enabled         =   0   'False
  577.             Caption         =   "Delete File"
  578.             Key             =   "kDeleteFile"
  579.             Object.ToolTipText     =   "Delete a file from Virtual Disk"
  580.             ImageIndex      =   6
  581.          EndProperty
  582.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  583.             Style           =   3
  584.          EndProperty
  585.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  586.             Caption         =   "About"
  587.             Key             =   "kAbout"
  588.             ImageIndex      =   7
  589.          EndProperty
  590.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  591.             Caption         =   "Exit"
  592.             Key             =   "kExit"
  593.             ImageIndex      =   8
  594.          EndProperty
  595.       EndProperty
  596.       BorderStyle     =   1
  597.    End
  598. End
  599. Attribute VB_Name = "frmMain"
  600. Attribute VB_GlobalNameSpace = False
  601. Attribute VB_Creatable = False
  602. Attribute VB_PredeclaredId = True
  603. Attribute VB_Exposed = False
  604. '-------------------------------------------------------
  605. '   Project..... VIRTUAL ENCRYPTED DISK UTILITY v2.0
  606. '   Module...... frmMain
  607. '   Author...... Sangaletti Federico
  608. '   email....... sangaletti@aliceposta.it
  609. '   License..... FREE (but respect copyright of my work!)
  610. '
  611. '   Decription.. This is the main window
  612. '-------------------------------------------------------
  613.  
  614.  
  615. Option Explicit
  616.  
  617. Const BUTTON_MOUNT = 1
  618. Const BUTTON_UNMOUNT = 2
  619. Const BUTTON_CREATE = 3
  620. Const BUTTON_VOLUME_INFO = 4
  621. Const BUTTON_ADD_FILE = 6
  622. Const BUTTON_DELETE_FILE = 7
  623.  
  624. Const PANEL_VDISK_MOUNTED = 1
  625. Const PANEL_VDISK_LABEL = 2
  626. Const PANEL_VDISK_SIZE = 3
  627.  
  628. Const SW_SHOWNORMAL = 1
  629. Const LVM_FIRST = &H1000&
  630. Const LVM_HITTEST = LVM_FIRST + 18
  631.  
  632. Private Type POINTAPI
  633.     X As Long
  634.     Y As Long
  635. End Type
  636.  
  637. Private Type LVHITTESTINFO
  638.    pt SanR) = 3
  639.