home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / tuneit / data.1 / Main.Frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-03-10  |  69.0 KB  |  1,923 lines
  1. VERSION 4.00
  2. Begin VB.Form Form_Main 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Windows System Information ..."
  6.    ClientHeight    =   5868
  7.    ClientLeft      =   552
  8.    ClientTop       =   828
  9.    ClientWidth     =   8772
  10.    Height          =   6252
  11.    Icon            =   "Main.frx":0000
  12.    Left            =   504
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5868
  17.    ScaleWidth      =   8772
  18.    Top             =   492
  19.    Width           =   8868
  20.    Begin VB.CommandButton Command_Quit 
  21.       Caption         =   "&Quit"
  22.       Height          =   372
  23.       Left            =   7008
  24.       TabIndex        =   56
  25.       Top             =   5436
  26.       Width           =   1692
  27.    End
  28.    Begin VB.Timer Timer2 
  29.       Interval        =   1000
  30.       Left            =   1620
  31.       Top             =   5484
  32.    End
  33.    Begin VB.Timer Timer1 
  34.       Interval        =   5000
  35.       Left            =   1080
  36.       Top             =   5484
  37.    End
  38.    Begin TabDlg.SSTab SSTab1 
  39.       Height          =   5292
  40.       Left            =   60
  41.       TabIndex        =   0
  42.       Top             =   96
  43.       Width           =   8652
  44.       _Version        =   65536
  45.       _ExtentX        =   15261
  46.       _ExtentY        =   9335
  47.       _StockProps     =   15
  48.       Caption         =   "Machine"
  49.       ForeColor       =   8388608
  50.       BackColor       =   -2147483633
  51.       TabsPerRow      =   8
  52.       Tab             =   0
  53.       TabOrientation  =   0
  54.       Tabs            =   8
  55.       Style           =   0
  56.       TabMaxWidth     =   0
  57.       TabHeight       =   423
  58.       ShowFocusRect   =   0   'False
  59.       WordWrap        =   0   'False
  60.       TabCaption(0)   =   "Machine"
  61.       Tab(0).ControlCount=   13
  62.       Tab(0).ControlEnabled=   -1  'True
  63.       Tab(0).Control(0)=   "Label7"
  64.       Tab(0).Control(1)=   "Label9"
  65.       Tab(0).Control(2)=   "Label10"
  66.       Tab(0).Control(3)=   "Label_Processor"
  67.       Tab(0).Control(4)=   "Label_PhysicalMemory"
  68.       Tab(0).Control(5)=   "Label_MemoryUtilization"
  69.       Tab(0).Control(6)=   "Image11"
  70.       Tab(0).Control(7)=   "Label1"
  71.       Tab(0).Control(8)=   "Label_DisplayAdapter"
  72.       Tab(0).Control(9)=   "Label32"
  73.       Tab(0).Control(10)=   "Label_BIOS"
  74.       Tab(0).Control(11)=   "Label_MaxResolution"
  75.       Tab(0).Control(12)=   "Label_MaxColors"
  76.       TabCaption(1)   =   "Peripherals"
  77.       Tab(1).ControlCount=   28
  78.       Tab(1).ControlEnabled=   0   'False
  79.       Tab(1).Control(0)=   "Image6"
  80.       Tab(1).Control(1)=   "Image7"
  81.       Tab(1).Control(2)=   "Image8"
  82.       Tab(1).Control(3)=   "Label2"
  83.       Tab(1).Control(4)=   "Label3"
  84.       Tab(1).Control(5)=   "Label5"
  85.       Tab(1).Control(6)=   "Image9"
  86.       Tab(1).Control(7)=   "Label31"
  87.       Tab(1).Control(8)=   "Label_Monitor"
  88.       Tab(1).Control(9)=   "Label_Keyboard"
  89.       Tab(1).Control(10)=   "Label_Mouse"
  90.       Tab(1).Control(11)=   "Label_DefaultPrinter"
  91.       Tab(1).Control(12)=   "Image12"
  92.       Tab(1).Control(13)=   "Label13"
  93.       Tab(1).Control(14)=   "Label_DisplayMode"
  94.       Tab(1).Control(15)=   "Label44"
  95.       Tab(1).Control(16)=   "Label45"
  96.       Tab(1).Control(17)=   "Label46"
  97.       Tab(1).Control(18)=   "Label59"
  98.       Tab(1).Control(19)=   "Image1"
  99.       Tab(1).Control(20)=   "Label_SoundDevice"
  100.       Tab(1).Control(21)=   "Label60"
  101.       Tab(1).Control(22)=   "Label61"
  102.       Tab(1).Control(23)=   "Check_NumLock"
  103.       Tab(1).Control(24)=   "Check_CapsLock"
  104.       Tab(1).Control(25)=   "Check_ScrollLock"
  105.       Tab(1).Control(26)=   "Check_MouseSwap"
  106.       Tab(1).Control(27)=   "Check_MouseTrails"
  107.       TabCaption(2)   =   "Windows"
  108.       Tab(2).ControlCount=   31
  109.       Tab(2).ControlEnabled=   0   'False
  110.       Tab(2).Control(0)=   "Label11"
  111.       Tab(2).Control(1)=   "Label15"
  112.       Tab(2).Control(2)=   "Label16"
  113.       Tab(2).Control(3)=   "Label18"
  114.       Tab(2).Control(4)=   "Label19"
  115.       Tab(2).Control(5)=   "Label_OS"
  116.       Tab(2).Control(6)=   "Label_FileSystem"
  117.       Tab(2).Control(7)=   "Label_Shell"
  118.       Tab(2).Control(8)=   "Label_Language"
  119.       Tab(2).Control(9)=   "Label_CodePage"
  120.       Tab(2).Control(10)=   "Label35"
  121.       Tab(2).Control(11)=   "Label39"
  122.       Tab(2).Control(12)=   "Label_WinDir"
  123.       Tab(2).Control(13)=   "Label_WinStartTime1"
  124.       Tab(2).Control(14)=   "Label6"
  125.       Tab(2).Control(15)=   "Label22"
  126.       Tab(2).Control(16)=   "Label23"
  127.       Tab(2).Control(17)=   "Label_KeyboardLayout"
  128.       Tab(2).Control(18)=   "Label24"
  129.       Tab(2).Control(19)=   "Label25"
  130.       Tab(2).Control(20)=   "Label40"
  131.       Tab(2).Control(21)=   "Label41"
  132.       Tab(2).Control(22)=   "Label42"
  133.       Tab(2).Control(23)=   "Label43"
  134.       Tab(2).Control(24)=   "Label_MaxFileNameLen"
  135.       Tab(2).Control(25)=   "Check_DebugVersion"
  136.       Tab(2).Control(26)=   "Check_PenWindows"
  137.       Tab(2).Control(27)=   "Check_MiddleEastWin"
  138.       Tab(2).Control(28)=   "Check_Unicode"
  139.       Tab(2).Control(29)=   "Check_CasePreserved"
  140.       Tab(2).Control(30)=   "Check_CaseSensitive"
  141.       TabCaption(3)   =   "Time"
  142.       Tab(3).ControlCount=   11
  143.       Tab(3).ControlEnabled=   0   'False
  144.       Tab(3).Control(0)=   "Label26"
  145.       Tab(3).Control(1)=   "Label27"
  146.       Tab(3).Control(2)=   "Label28"
  147.       Tab(3).Control(3)=   "Label29"
  148.       Tab(3).Control(4)=   "Label30"
  149.       Tab(3).Control(5)=   "Label_LocalTimeName"
  150.       Tab(3).Control(6)=   "Label_TimeZone"
  151.       Tab(3).Control(7)=   "Label_GMTtime"
  152.       Tab(3).Control(8)=   "Label_LocalTime"
  153.       Tab(3).Control(9)=   "Label_WinStartTime2"
  154.       Tab(3).Control(10)=   "Image13"
  155.       TabCaption(4)   =   "Desktop"
  156.       Tab(4).ControlCount=   28
  157.       Tab(4).ControlEnabled=   0   'False
  158.       Tab(4).Control(0)=   "Label12"
  159.       Tab(4).Control(1)=   "Label14"
  160.       Tab(4).Control(2)=   "Label17"
  161.       Tab(4).Control(3)=   "Label20"
  162.       Tab(4).Control(4)=   "Label21"
  163.       Tab(4).Control(5)=   "Label_Wallpaper"
  164.       Tab(4).Control(6)=   "Label_ScreenSaver"
  165.       Tab(4).Control(7)=   "Image14"
  166.       Tab(4).Control(8)=   "Label_ScreenSaveTimeOut"
  167.       Tab(4).Control(9)=   "Label47"
  168.       Tab(4).Control(10)=   "Label48"
  169.       Tab(4).Control(11)=   "Label_TaskbarLocation"
  170.       Tab(4).Control(12)=   "Label49"
  171.       Tab(4).Control(13)=   "Label50"
  172.       Tab(4).Control(14)=   "Label_IconType"
  173.       Tab(4).Control(15)=   "Label_MenuHeight"
  174.       Tab(4).Control(16)=   "Label_IconsUsingAllColors"
  175.       Tab(4).Control(17)=   "Label_IconTitleWrap"
  176.       Tab(4).Control(18)=   "Label66"
  177.       Tab(4).Control(19)=   "Label_MenuFont"
  178.       Tab(4).Control(20)=   "Check_Tiled"
  179.       Tab(4).Control(21)=   "Check_Stretched"
  180.       Tab(4).Control(22)=   "Check_ScreenSaveActive"
  181.       Tab(4).Control(23)=   "Check_AlwaysOnTop"
  182.       Tab(4).Control(24)=   "Check_AutoHide"
  183.       Tab(4).Control(25)=   "Check_IconsUsingAllColors"
  184.       Tab(4).Control(26)=   "Check_MenuRightAlign"
  185.       Tab(4).Control(27)=   "Check_IconTitleWrap"
  186.       TabCaption(5)   =   "Resources"
  187.       Tab(5).ControlCount=   19
  188.       Tab(5).ControlEnabled=   0   'False
  189.       Tab(5).Control(0)=   "ProgressBar_SwapFile"
  190.       Tab(5).Control(1)=   "Label_SwapFile"
  191.       Tab(5).Control(2)=   "ProgressBar_Mem"
  192.       Tab(5).Control(3)=   "Label_Memory"
  193.       Tab(5).Control(4)=   "ProgressBar_ProcessorUsage"
  194.       Tab(5).Control(5)=   "Label_ProcessorUsage"
  195.       Tab(5).Control(6)=   "Label53"
  196.       Tab(5).Control(7)=   "Label54"
  197.       Tab(5).Control(8)=   "Label55"
  198.       Tab(5).Control(9)=   "Label56"
  199.       Tab(5).Control(10)=   "Label_VMs"
  200.       Tab(5).Control(11)=   "Label_Threads"
  201.       Tab(5).Control(12)=   "Label_AllocatedMemory"
  202.       Tab(5).Control(13)=   "Label_LockedMemory"
  203.       Tab(5).Control(14)=   "Image15"
  204.       Tab(5).Control(15)=   "ProgressBar_DiskCache"
  205.       Tab(5).Control(16)=   "ProgressBar_SwapFileUsage"
  206.       Tab(5).Control(17)=   "Label_DiskCache"
  207.       Tab(5).Control(18)=   "Label_SwapFileUsage"
  208.       TabCaption(6)   =   "Disk"
  209.       Tab(6).ControlCount=   10
  210.       Tab(6).ControlEnabled=   0   'False
  211.       Tab(6).Control(0)=   "Label36"
  212.       Tab(6).Control(1)=   "Label_TempDir"
  213.       Tab(6).Control(2)=   "Label51"
  214.       Tab(6).Control(3)=   "Label_Path"
  215.       Tab(6).Control(4)=   "Label57"
  216.       Tab(6).Control(5)=   "Label_WinDir2"
  217.       Tab(6).Control(6)=   "Label58"
  218.       Tab(6).Control(7)=   "Label_COMSPEC"
  219.       Tab(6).Control(8)=   "Image16"
  220.       Tab(6).Control(9)=   "Frame1"
  221.       TabCaption(7)   =   "About ..."
  222.       Tab(7).ControlCount=   10
  223.       Tab(7).ControlEnabled=   0   'False
  224.       Tab(7).Control(0)=   "Label_ProductID"
  225.       Tab(7).Control(1)=   "Label38"
  226.       Tab(7).Control(2)=   "Label_WinOrganization"
  227.       Tab(7).Control(3)=   "Label37"
  228.       Tab(7).Control(4)=   "Label_WinUser"
  229.       Tab(7).Control(5)=   "Label34"
  230.       Tab(7).Control(6)=   "Label4"
  231.       Tab(7).Control(7)=   "Image10"
  232.       Tab(7).Control(8)=   "Label33"
  233.       Tab(7).Control(9)=   "Label52"
  234.       Begin VB.CheckBox Check_IconTitleWrap 
  235.          Enabled         =   0   'False
  236.          Height          =   252
  237.          Left            =   -68520
  238.          TabIndex        =   142
  239.          Top             =   3372
  240.          Width           =   252
  241.       End
  242.       Begin VB.CheckBox Check_MenuRightAlign 
  243.          Enabled         =   0   'False
  244.          Height          =   252
  245.          Left            =   -70680
  246.          TabIndex        =   141
  247.          Top             =   4212
  248.          Width           =   252
  249.       End
  250.       Begin VB.CheckBox Check_IconsUsingAllColors 
  251.          Enabled         =   0   'False
  252.          Height          =   252
  253.          Left            =   -70680
  254.          TabIndex        =   140
  255.          Top             =   3372
  256.          Width           =   252
  257.       End
  258.       Begin VB.CheckBox Check_MouseTrails 
  259.          Enabled         =   0   'False
  260.          Height          =   276
  261.          Left            =   -70680
  262.          TabIndex        =   132
  263.          Top             =   2172
  264.          Width           =   216
  265.       End
  266.       Begin VB.CheckBox Check_MouseSwap 
  267.          Enabled         =   0   'False
  268.          Height          =   252
  269.          Left            =   -69264
  270.          TabIndex        =   130
  271.          Top             =   2184
  272.          Width           =   228
  273.       End
  274.       Begin VB.Frame Frame1 
  275.          Caption         =   " Number of available drives   "
  276.          ClipControls    =   0   'False
  277.          ForeColor       =   &H00FF0000&
  278.          Height          =   1692
  279.          Left            =   -72720
  280.          TabIndex        =   120
  281.          Top             =   720
  282.          Width           =   6252
  283.          Begin VB.Label Label_RemoteDrives 
  284.             Alignment       =   2  'Center
  285.             Caption         =   "0"
  286.             BeginProperty Font 
  287.                name            =   "Times New Roman"
  288.                charset         =   0
  289.                weight          =   700
  290.                size            =   13.2
  291.                underline       =   0   'False
  292.                italic          =   0   'False
  293.                strikethrough   =   0   'False
  294.             EndProperty
  295.             ForeColor       =   &H00808080&
  296.             Height          =   375
  297.             Left            =   5400
  298.             TabIndex        =   127
  299.             Top             =   1080
  300.             Width           =   615
  301.          End
  302.          Begin VB.Label Label_RamDrives 
  303.             Alignment       =   2  'Center
  304.             Caption         =   "0"
  305.             BeginProperty Font 
  306.                name            =   "Times New Roman"
  307.                charset         =   0
  308.                weight          =   700
  309.                size            =   13.2
  310.                underline       =   0   'False
  311.                italic          =   0   'False
  312.                strikethrough   =   0   'False
  313.             EndProperty
  314.             ForeColor       =   &H00808080&
  315.             Height          =   375
  316.             Left            =   4200
  317.             TabIndex        =   126
  318.             Top             =   1080
  319.             Width           =   615
  320.          End
  321.          Begin VB.Label Label_HDDs 
  322.             Alignment       =   2  'Center
  323.             Caption         =   "3"
  324.             BeginProperty Font 
  325.                name            =   "Times New Roman"
  326.                charset         =   0
  327.                weight          =   700
  328.                size            =   13.2
  329.                underline       =   0   'False
  330.                italic          =   0   'False
  331.                strikethrough   =   0   'False
  332.             EndProperty
  333.             ForeColor       =   &H00808080&
  334.             Height          =   375
  335.             Left            =   2880
  336.             TabIndex        =   125
  337.             Top             =   1080
  338.             Width           =   615
  339.          End
  340.          Begin VB.Label Label_CDDrives 
  341.             Alignment       =   2  'Center
  342.             Caption         =   "1"
  343.             BeginProperty Font 
  344.                name            =   "Times New Roman"
  345.                charset         =   0
  346.                weight          =   700
  347.                size            =   13.2
  348.                underline       =   0   'False
  349.                italic          =   0   'False
  350.                strikethrough   =   0   'False
  351.             EndProperty
  352.             ForeColor       =   &H00808080&
  353.             Height          =   375
  354.             Left            =   1560
  355.             TabIndex        =   124
  356.             Top             =   1080
  357.             Width           =   615
  358.          End
  359.          Begin VB.Label Label_FDDs 
  360.             Alignment       =   2  'Center
  361.             Caption         =   "2"
  362.             BeginProperty Font 
  363.                name            =   "Times New Roman"
  364.                charset         =   0
  365.                weight          =   700
  366.                size            =   13.2
  367.                underline       =   0   'False
  368.                italic          =   0   'False
  369.                strikethrough   =   0   'False
  370.             EndProperty
  371.             ForeColor       =   &H00808080&
  372.             Height          =   375
  373.             Left            =   300
  374.             TabIndex        =   123
  375.             Top             =   1080
  376.             Width           =   615
  377.          End
  378.          Begin VB.Image Image21 
  379.             Height          =   384
  380.             Left            =   5520
  381.             Picture         =   "Main.frx":0442
  382.             Top             =   600
  383.             Width           =   384
  384.          End
  385.          Begin VB.Image Image20 
  386.             Height          =   384
  387.             Left            =   4320
  388.             Picture         =   "Main.frx":074C
  389.             Top             =   600
  390.             Width           =   384
  391.          End
  392.          Begin VB.Image Image19 
  393.             Height          =   384
  394.             Left            =   1680
  395.             Picture         =   "Main.frx":0A56
  396.             Top             =   600
  397.             Width           =   384
  398.          End
  399.          Begin VB.Image Image18 
  400.             Height          =   384
  401.             Left            =   3000
  402.             Picture         =   "Main.frx":0D60
  403.             Top             =   600
  404.             Width           =   384
  405.          End
  406.          Begin VB.Image Image17 
  407.             Height          =   384
  408.             Left            =   360
  409.             Picture         =   "Main.frx":106A
  410.             Top             =   600
  411.             Width           =   384
  412.          End
  413.       End
  414.       Begin VB.CheckBox Check_AutoHide 
  415.          Enabled         =   0   'False
  416.          Height          =   252
  417.          Left            =   -68520
  418.          TabIndex        =   83
  419.          Top             =   1920
  420.          Width           =   202
  421.       End
  422.       Begin VB.CheckBox Check_AlwaysOnTop 
  423.          Enabled         =   0   'False
  424.          Height          =   252
  425.          Left            =   -70680
  426.          TabIndex        =   82
  427.          Top             =   1920
  428.          Width           =   202
  429.       End
  430.       Begin VB.CheckBox Check_ScreenSaveActive 
  431.          Enabled         =   0   'False
  432.          Height          =   252
  433.          Left            =   -70680
  434.          TabIndex        =   64
  435.          Top             =   2688
  436.          Width           =   202
  437.       End
  438.       Begin VB.CheckBox Check_Stretched 
  439.          Enabled         =   0   'False
  440.          ForeColor       =   &H00800000&
  441.          Height          =   252
  442.          Left            =   -68520
  443.          TabIndex        =   63
  444.          Top             =   1200
  445.          Width           =   202
  446.       End
  447.       Begin VB.CheckBox Check_Tiled 
  448.          Enabled         =   0   'False
  449.          ForeColor       =   &H00800000&
  450.          Height          =   252
  451.          Left            =   -70680
  452.          TabIndex        =   62
  453.          Top             =   1200
  454.          Width           =   202
  455.       End
  456.       Begin VB.CheckBox Check_CaseSensitive 
  457.          Enabled         =   0   'False
  458.          ForeColor       =   &H00800000&
  459.          Height          =   252
  460.          Left            =   -67920
  461.          TabIndex        =   48
  462.          Top             =   2040
  463.          Width           =   202
  464.       End
  465.       Begin VB.CheckBox Check_CasePreserved 
  466.          Enabled         =   0   'False
  467.          ForeColor       =   &H00800000&
  468.          Height          =   252
  469.          Left            =   -69360
  470.          TabIndex        =   46
  471.          Top             =   2040
  472.          Width           =   202
  473.       End
  474.       Begin VB.CheckBox Check_Unicode 
  475.          Enabled         =   0   'False
  476.          ForeColor       =   &H00800000&
  477.          Height          =   252
  478.          Left            =   -70800
  479.          TabIndex        =   45
  480.          Top             =   2040
  481.          Width           =   202
  482.       End
  483.       Begin VB.CheckBox Check_MiddleEastWin 
  484.          Enabled         =   0   'False
  485.          ForeColor       =   &H00800000&
  486.          Height          =   252
  487.          Left            =   -67920
  488.          TabIndex        =   44
  489.          Top             =   960
  490.          Width           =   202
  491.       End
  492.       Begin VB.CheckBox Check_PenWindows 
  493.          Enabled         =   0   'False
  494.          ForeColor       =   &H00800000&
  495.          Height          =   252
  496.          Left            =   -70800
  497.          TabIndex        =   43
  498.          Top             =   960
  499.          Width           =   202
  500.       End
  501.       Begin VB.CheckBox Check_DebugVersion 
  502.          Enabled         =   0   'False
  503.          ForeColor       =   &H00800000&
  504.          Height          =   252
  505.          Left            =   -69360
  506.          TabIndex        =   42
  507.          Top             =   960
  508.          Width           =   202
  509.       End
  510.       Begin VB.CheckBox Check_ScrollLock 
  511.          Enabled         =   0   'False
  512.          ForeColor       =   &H00800000&
  513.          Height          =   252
  514.          Left            =   -67800
  515.          TabIndex        =   41
  516.          Top             =   3012
  517.          Width           =   202
  518.       End
  519.       Begin VB.CheckBox Check_CapsLock 
  520.          Enabled         =   0   'False
  521.          ForeColor       =   &H00800000&
  522.          Height          =   252
  523.          Left            =   -69264
  524.          TabIndex        =   40
  525.          Top             =   3012
  526.          Width           =   202
  527.       End
  528.       Begin VB.CheckBox Check_NumLock 
  529.          Enabled         =   0   'False
  530.          ForeColor       =   &H00800000&
  531.          Height          =   252
  532.          Left            =   -70692
  533.          TabIndex        =   39
  534.          Top             =   3012
  535.          Width           =   202
  536.       End
  537.       Begin VB.Label Label_MaxColors 
  538.          Caption         =   "Label8"
  539.          ForeColor       =   &H00800000&
  540.          Height          =   252
  541.          Left            =   4080
  542.          TabIndex        =   144
  543.          Top             =   4440
  544.          Width           =   4452
  545.       End
  546.       Begin VB.Label Label_MaxResolution 
  547.          Caption         =   "Label8"
  548.          ForeColor       =   &H00800000&
  549.          Height          =   276
  550.          Left            =   4080
  551.          TabIndex        =   143
  552.          Top             =   4800
  553.          Width           =   4452
  554.       End
  555.       Begin VB.Label Label_MenuFont 
  556.          Caption         =   "Label67"
  557.          Enabled         =   0   'False
  558.          ForeColor       =   &H00800000&
  559.          Height          =   252
  560.          Left            =   -68280
  561.          TabIndex        =   139
  562.          Top             =   4248
  563.          Width           =   1884
  564.       End
  565.       Begin VB.Label Label66 
  566.          Caption         =   "Right aligned"
  567.          Enabled         =   0   'False
  568.          ForeColor       =   &H00800000&
  569.          Height          =   252
  570.          Left            =   -70428
  571.          TabIndex        =   138
  572.          Top             =   4248
  573.          Width           =   1812
  574.       End
  575.       Begin VB.Label Label_IconTitleWrap 
  576.          Caption         =   "Wrap title"
  577.          Enabled         =   0   'False
  578.          ForeColor       =   &H00800000&
  579.          Height          =   252
  580.          Left            =   -68268
  581.          TabIndex        =   137
  582.          Top             =   3408
  583.          Width           =   1812
  584.       End
  585.       Begin VB.Label Label_IconsUsingAllColors 
  586.          Caption         =   "Show using all colors"
  587.          Enabled         =   0   'False
  588.          ForeColor       =   &H00800000&
  589.          Height          =   252
  590.          Left            =   -70440
  591.          TabIndex        =   136
  592.          Top             =   3408
  593.          Width           =   1884
  594.       End
  595.       Begin VB.Label Label_MenuHeight 
  596.          Caption         =   "Label63"
  597.          ForeColor       =   &H00800000&
  598.          Height          =   252
  599.          Left            =   -70680
  600.          TabIndex        =   135
  601.          Top             =   3960
  602.          Width           =   4212
  603.       End
  604.       Begin VB.Label Label_IconType 
  605.          Caption         =   "Label62"
  606.          ForeColor       =   &H00800000&
  607.          Height          =   252
  608.          Left            =   -70680
  609.          TabIndex        =   134
  610.          Top             =   3120
  611.          Width           =   4212
  612.       End
  613.       Begin VB.Label Label61 
  614.          Caption         =   "Trails"
  615.          Enabled         =   0   'False
  616.          ForeColor       =   &H00800000&
  617.          Height          =   276
  618.          Left            =   -70464
  619.          TabIndex        =   133
  620.          Top             =   2220
  621.          Width           =   1056
  622.       End
  623.       Begin VB.Label Label60 
  624.          Caption         =   "Swapped buttons"
  625.          Enabled         =   0   'False
  626.          ForeColor       =   &H00800000&
  627.          Height          =   252
  628.          Left            =   -69048
  629.          TabIndex        =   131
  630.          Top             =   2220
  631.          Width           =   2124
  632.       End
  633.       Begin VB.Label Label_SoundDevice 
  634.          Caption         =   "Label60"
  635.          ForeColor       =   &H00800000&
  636.          Height          =   252
  637.          Left            =   -70680
  638.          TabIndex        =   129
  639.          Top             =   3600
  640.          Width           =   4272
  641.       End
  642.       Begin VB.Image Image1 
  643.          Height          =   384
  644.          Left            =   -72480
  645.          Picture         =   "Main.frx":1374
  646.          Top             =   3480
  647.          Width           =   384
  648.       End
  649.       Begin VB.Label Label59 
  650.          Caption         =   "Sound device   :"
  651.          Height          =   252
  652.          Left            =   -72000
  653.          TabIndex        =   128
  654.          Top             =   3600
  655.          Width           =   1332
  656.       End
  657.       Begin VB.Image Image16 
  658.          Height          =   1056
  659.          Left            =   -74916
  660.          Picture         =   "Main.frx":167E
  661.          Stretch         =   -1  'True
  662.          Top             =   1356
  663.          Width           =   2088
  664.       End
  665.       Begin VB.Label Label_COMSPEC 
  666.          Caption         =   "Label59"
  667.          ForeColor       =   &H00800000&
  668.          Height          =   252
  669.          Left            =   -71040
  670.          TabIndex        =   122
  671.          Top             =   4680
  672.          Width           =   4572
  673.       End
  674.       Begin VB.Label Label58 
  675.          Caption         =   "COMSPEC                 :"
  676.          Height          =   252
  677.          Left            =   -72720
  678.          TabIndex        =   121
  679.          Top             =   4680
  680.          Width           =   1692
  681.       End
  682.       Begin VB.Label Label_WinDir2 
  683.          Caption         =   "Label58"
  684.          ForeColor       =   &H00800000&
  685.          Height          =   252
  686.          Left            =   -71040
  687.          TabIndex        =   119
  688.          Top             =   4080
  689.          Width           =   4452
  690.       End
  691.       Begin VB.Label Label57 
  692.          Caption         =   "Windows directory   :"
  693.          Height          =   252
  694.          Left            =   -72720
  695.          TabIndex        =   118
  696.          Top             =   4080
  697.          Width           =   1692
  698.       End
  699.       Begin VB.Label Label_Path 
  700.          Caption         =   "Label52"
  701.          BeginProperty Font 
  702.             name            =   "Times New Roman"
  703.             charset         =   0
  704.             weight          =   400
  705.             size            =   7.8
  706.             underline       =   0   'False
  707.             italic          =   0   'False
  708.             strikethrough   =   0   'False
  709.          EndProperty
  710.          ForeColor       =   &H00800000&
  711.          Height          =   612
  712.          Left            =   -71040
  713.          TabIndex        =   117
  714.          Top             =   2880
  715.          Width           =   4644
  716.          WordWrap        =   -1  'True
  717.       End
  718.       Begin VB.Label Label51 
  719.          Caption         =   "Path                              :"
  720.          Height          =   252
  721.          Left            =   -72720
  722.          TabIndex        =   116
  723.          Top             =   2880
  724.          Width           =   1704
  725.       End
  726.       Begin VB.Label Label_TempDir 
  727.          Caption         =   "Label41"
  728.          ForeColor       =   &H00800000&
  729.          Height          =   252
  730.          Left            =   -71028
  731.          TabIndex        =   115
  732.          Top             =   3480
  733.          Width           =   4572
  734.       End
  735.       Begin VB.Label Label36 
  736.          Caption         =   "Temp directory         :"
  737.          Height          =   252
  738.          Left            =   -72720
  739.          TabIndex        =   114
  740.          Top             =   3480
  741.          Width           =   1692
  742.       End
  743.       Begin VB.Label Label_ProductID 
  744.          Caption         =   "Label41"
  745.          Height          =   252
  746.          Left            =   -68880
  747.          TabIndex        =   113
  748.          Top             =   4680
  749.          Width           =   2412
  750.       End
  751.       Begin VB.Label Label38 
  752.          Caption         =   "O.S. product ID :"
  753.          Height          =   252
  754.          Left            =   -70320
  755.          TabIndex        =   112
  756.          Top             =   4680
  757.          Width           =   1452
  758.       End
  759.       Begin VB.Label Label_WinOrganization 
  760.          Caption         =   "Label40"
  761.          Height          =   252
  762.          Left            =   -68880
  763.          TabIndex        =   111
  764.          Top             =   4080
  765.          Width           =   2412
  766.       End
  767.       Begin VB.Label Label37 
  768.          Caption         =   "Organization     :"
  769.          Height          =   252
  770.          Left            =   -70320
  771.          TabIndex        =   110
  772.          Top             =   4080
  773.          Width           =   1452
  774.       End
  775.       Begin VB.Label Label_WinUser 
  776.          Caption         =   "Label39"
  777.          Height          =   252
  778.          Left            =   -68880
  779.          TabIndex        =   109
  780.          Top             =   3480
  781.          Width           =   2412
  782.       End
  783.       Begin VB.Label Label34 
  784.          Caption         =   "Windows user   :"
  785.          Height          =   252
  786.          Left            =   -70320
  787.          TabIndex        =   108
  788.          Top             =   3480
  789.          Width           =   1452
  790.       End
  791.       Begin VB.Label Label4 
  792.          Appearance      =   0  'Flat
  793.          BackColor       =   &H00C0C0C0&
  794.          BackStyle       =   0  'Transparent
  795.          BorderStyle     =   1  'Fixed Single
  796.          Caption         =   "Label4"
  797.          ForeColor       =   &H80000008&
  798.          Height          =   12
  799.          Left            =   -74160
  800.          TabIndex        =   107
  801.          Top             =   3600
  802.          Width           =   3612
  803.       End
  804.       Begin VB.Image Image10 
  805.          Height          =   2160
  806.          Left            =   -74160
  807.          Picture         =   "Main.frx":29A0
  808.          Top             =   840
  809.          Width           =   1980
  810.       End
  811.       Begin VB.Label Label33 
  812.          Alignment       =   2  'Center
  813.          Caption         =   "A TuneIt! OLE control sample"
  814.          BeginProperty Font 
  815.             name            =   "MS Sans Serif"
  816.             charset         =   0
  817.             weight          =   400
  818.             size            =   9.6
  819.             underline       =   0   'False
  820.             italic          =   0   'False
  821.             strikethrough   =   0   'False
  822.          EndProperty
  823.          ForeColor       =   &H00800000&
  824.          Height          =   372
  825.          Left            =   -73800
  826.          TabIndex        =   106
  827.          Top             =   2160
  828.          Width           =   6252
  829.       End
  830.       Begin VB.Label Label52 
  831.          Alignment       =   2  'Center
  832.          Caption         =   "WinInfo   ver. 1.0"
  833.          BeginProperty Font 
  834.             name            =   "Times New Roman"
  835.             charset         =   0
  836.             weight          =   400
  837.             size            =   24
  838.             underline       =   0   'False
  839.             italic          =   0   'False
  840.             strikethrough   =   0   'False
  841.          EndProperty
  842.          ForeColor       =   &H00FF0000&
  843.          Height          =   780
  844.          Left            =   -73788
  845.          TabIndex        =   105
  846.          Top             =   1320
  847.          Width           =   6252
  848.       End
  849.       Begin VB.Label Label_SwapFileUsage 
  850.          Alignment       =   2  'Center
  851.          Caption         =   "Label58"
  852.          ForeColor       =   &H00808080&
  853.          Height          =   252
  854.          Left            =   -70536
  855.          TabIndex        =   104
  856.          Top             =   4704
  857.          Width           =   4116
  858.       End
  859.       Begin VB.Label Label_DiskCache 
  860.          Alignment       =   2  'Center
  861.          Caption         =   "Label57"
  862.          ForeColor       =   &H00808080&
  863.          Height          =   252
  864.          Left            =   -70548
  865.          TabIndex        =   103
  866.          Top             =   3936
  867.          Width           =   4128
  868.       End
  869.       Begin ComctlLib.ProgressBar ProgressBar_SwapFileUsage 
  870.          Height          =   204
  871.          Left            =   -70536
  872.          TabIndex        =   102
  873.          Top             =   4968
  874.          Width           =   4116
  875.          _Version        =   65536
  876.          _ExtentX        =   7260
  877.          _ExtentY        =   360
  878.          _StockProps     =   192
  879.          BorderStyle     =   1
  880.       End
  881.       Begin ComctlLib.ProgressBar ProgressBar_DiskCache 
  882.          Height          =   204
  883.          Left            =   -70548
  884.          TabIndex        =   101
  885.          Top             =   4200
  886.          Width           =   4128
  887.          _Version        =   65536
  888.          _ExtentX        =   7281
  889.          _ExtentY        =   360
  890.          _StockProps     =   192
  891.          BorderStyle     =   1
  892.       End
  893.       Begin VB.Image Image15 
  894.          Height          =   1452
  895.          Left            =   -74880
  896.          Picture         =   "Main.frx":38EA
  897.          Stretch         =   -1  'True
  898.          Top             =   1080
  899.          Width           =   2052
  900.       End
  901.       Begin VB.Label Label_LockedMemory 
  902.          Caption         =   "Label57"
  903.          ForeColor       =   &H00800000&
  904.          Height          =   252
  905.          Left            =   -70680
  906.          TabIndex        =   100
  907.          Top             =   2400
  908.          Width           =   4212
  909.       End
  910.       Begin VB.Label Label_AllocatedMemory 
  911.          Caption         =   "Label57"
  912.          ForeColor       =   &H00800000&
  913.          Height          =   252
  914.          Left            =   -70680
  915.          TabIndex        =   99
  916.          Top             =   1920
  917.          Width           =   4212
  918.       End
  919.       Begin VB.Label Label_Threads 
  920.          Caption         =   "Label57"
  921.          ForeColor       =   &H00800000&
  922.          Height          =   252
  923.          Left            =   -70680
  924.          TabIndex        =   98
  925.          Top             =   1440
  926.          Width           =   4212
  927.       End
  928.       Begin VB.Label Label_VMs 
  929.          Caption         =   "Label57"
  930.          ForeColor       =   &H00800000&
  931.          Height          =   252
  932.          Left            =   -70680
  933.          TabIndex        =   97
  934.          Top             =   960
  935.          Width           =   4212
  936.       End
  937.       Begin VB.Label Label56 
  938.          Caption         =   "Locked memory     :"
  939.          Height          =   252
  940.          Left            =   -72468
  941.          TabIndex        =   96
  942.          Top             =   2400
  943.          Width           =   1812
  944.       End
  945.       Begin VB.Label Label55 
  946.          Caption         =   "Allocated memory  :"
  947.          Height          =   252
  948.          Left            =   -72480
  949.          TabIndex        =   95
  950.          Top             =   1920
  951.          Width           =   1812
  952.       End
  953.       Begin VB.Label Label54 
  954.          Caption         =   "Threads                     :"
  955.          Height          =   252
  956.          Left            =   -72480
  957.          TabIndex        =   94
  958.          Top             =   1440
  959.          Width           =   1812
  960.       End
  961.       Begin VB.Label Label53 
  962.          Caption         =   "Virtual Machines     :"
  963.          Height          =   252
  964.          Left            =   -72480
  965.          TabIndex        =   93
  966.          Top             =   960
  967.          Width           =   1812
  968.       End
  969.       Begin VB.Label Label_BIOS 
  970.          Caption         =   "Label53"
  971.          ForeColor       =   &H00800000&
  972.          Height          =   732
  973.          Left            =   4080
  974.          TabIndex        =   92
  975.          Top             =   3240
  976.          Width           =   4452
  977.          WordWrap        =   -1  'True
  978.       End
  979.       Begin VB.Label Label32 
  980.          Caption         =   "BIOS                            :"
  981.          Height          =   252
  982.          Left            =   2520
  983.          TabIndex        =   91
  984.          Top             =   3240
  985.          Width           =   1572
  986.       End
  987.       Begin VB.Label Label_ProcessorUsage 
  988.          Alignment       =   2  'Center
  989.          Caption         =   "Label53"
  990.          ForeColor       =   &H00808080&
  991.          Height          =   252
  992.          Left            =   -74928
  993.          TabIndex        =   90
  994.          Top             =   3216
  995.          Width           =   8520
  996.       End
  997.       Begin ComctlLib.ProgressBar ProgressBar_ProcessorUsage 
  998.          Height          =   204
  999.          Left            =   -74928
  1000.          TabIndex        =   89
  1001.          Top             =   3480
  1002.          Width           =   8508
  1003.          _Version        =   65536
  1004.          _ExtentX        =   15007
  1005.          _ExtentY        =   360
  1006.          _StockProps     =   192
  1007.          BorderStyle     =   1
  1008.       End
  1009.       Begin VB.Label Label_Memory 
  1010.          Alignment       =   2  'Center
  1011.          Caption         =   "Label15"
  1012.          ForeColor       =   &H00808080&
  1013.          Height          =   252
  1014.          Left            =   -74928
  1015.          TabIndex        =   88
  1016.          Top             =   3948
  1017.          Width           =   4140
  1018.       End
  1019.       Begin ComctlLib.ProgressBar ProgressBar_Mem 
  1020.          Height          =   204
  1021.          Left            =   -74928
  1022.          TabIndex        =   87
  1023.          Top             =   4212
  1024.          Width           =   4140
  1025.          _Version        =   65536
  1026.          _ExtentX        =   7303
  1027.          _ExtentY        =   360
  1028.          _StockProps     =   192
  1029.          BorderStyle     =   1
  1030.       End
  1031.       Begin VB.Label Label_SwapFile 
  1032.          Alignment       =   2  'Center
  1033.          Caption         =   "Label52"
  1034.          ForeColor       =   &H00808080&
  1035.          Height          =   252
  1036.          Left            =   -74928
  1037.          TabIndex        =   86
  1038.          Top             =   4728
  1039.          Width           =   4140
  1040.       End
  1041.       Begin ComctlLib.ProgressBar ProgressBar_SwapFile 
  1042.          Height          =   192
  1043.          Left            =   -74928
  1044.          TabIndex        =   85
  1045.          Top             =   4980
  1046.          Width           =   4140
  1047.          _Version        =   65536
  1048.          _ExtentX        =   7303
  1049.          _ExtentY        =   339
  1050.          _StockProps     =   192
  1051.          BorderStyle     =   1
  1052.       End
  1053.       Begin VB.Label Label_MaxFileNameLen 
  1054.          Caption         =   "Label51"
  1055.          ForeColor       =   &H00800000&
  1056.          Height          =   252
  1057.          Left            =   -70800
  1058.          TabIndex        =   84
  1059.          Top             =   1800
  1060.          Width           =   4332
  1061.       End
  1062.       Begin VB.Label Label50 
  1063.          Caption         =   "Auto hide"
  1064.          Enabled         =   0   'False
  1065.          ForeColor       =   &H00800000&
  1066.          Height          =   252
  1067.          Left            =   -68300
  1068.          TabIndex        =   81
  1069.          Top             =   1950
  1070.          Width           =   1812
  1071.       End
  1072.       Begin VB.Label Label49 
  1073.          Caption         =   "Always on top"
  1074.          Enabled         =   0   'False
  1075.          ForeColor       =   &H00800000&
  1076.          Height          =   252
  1077.          Left            =   -70460
  1078.          TabIndex        =   80
  1079.          Top             =   1950
  1080.          Width           =   1812
  1081.       End
  1082.       Begin VB.Label Label_TaskbarLocation 
  1083.          Caption         =   "Label49"
  1084.          ForeColor       =   &H00800000&
  1085.          Height          =   252
  1086.          Left            =   -70680
  1087.          TabIndex        =   79
  1088.          Top             =   1680
  1089.          Width           =   4212
  1090.       End
  1091.       Begin VB.Label Label48 
  1092.          Caption         =   "Stretched"
  1093.          Enabled         =   0   'False
  1094.          ForeColor       =   &H00800000&
  1095.          Height          =   252
  1096.          Left            =   -68300
  1097.          TabIndex        =   78
  1098.          Top             =   1230
  1099.          Width           =   1572
  1100.       End
  1101.       Begin VB.Label Label47 
  1102.          Caption         =   "Tiled"
  1103.          Enabled         =   0   'False
  1104.          ForeColor       =   &H00800000&
  1105.          Height          =   252
  1106.          Left            =   -70460
  1107.          TabIndex        =   77
  1108.          Top             =   1230
  1109.          Width           =   1212
  1110.       End
  1111.       Begin VB.Label Label46 
  1112.          Caption         =   "Scroll Lock"
  1113.          Enabled         =   0   'False
  1114.          ForeColor       =   &H00800000&
  1115.          Height          =   252
  1116.          Left            =   -67596
  1117.          TabIndex        =   76
  1118.          Top             =   3048
  1119.          Width           =   1164
  1120.       End
  1121.       Begin VB.Label Label45 
  1122.          Caption         =   "Caps Lock"
  1123.          Enabled         =   0   'False
  1124.          ForeColor       =   &H00800000&
  1125.          Height          =   252
  1126.          Left            =   -69024
  1127.          TabIndex        =   75
  1128.          Top             =   3048
  1129.          Width           =   1212
  1130.       End
  1131.       Begin VB.Label Label44 
  1132.          Caption         =   "Num Lock"
  1133.          Enabled         =   0   'False
  1134.          ForeColor       =   &H00800000&
  1135.          Height          =   252
  1136.          Left            =   -70476
  1137.          TabIndex        =   74
  1138.          Top             =   3036
  1139.          Width           =   1212
  1140.       End
  1141.       Begin VB.Label Label43 
  1142.          Caption         =   "Case sensitive"
  1143.          Enabled         =   0   'False
  1144.          ForeColor       =   &H00800000&
  1145.          Height          =   252
  1146.          Left            =   -67704
  1147.          TabIndex        =   73
  1148.          Top             =   2076
  1149.          Width           =   1308
  1150.       End
  1151.       Begin VB.Label Label42 
  1152.          Caption         =   "Case preserved"
  1153.          Enabled         =   0   'False
  1154.          ForeColor       =   &H00800000&
  1155.          Height          =   252
  1156.          Left            =   -69144
  1157.          TabIndex        =   72
  1158.          Top             =   2070
  1159.          Width           =   1212
  1160.       End
  1161.       Begin VB.Label Label41 
  1162.          Caption         =   "Unicode"
  1163.          Enabled         =   0   'False
  1164.          ForeColor       =   &H00800000&
  1165.          Height          =   252
  1166.          Left            =   -70584
  1167.          TabIndex        =   71
  1168.          Top             =   2070
  1169.          Width           =   1212
  1170.       End
  1171.       Begin VB.Label Label40 
  1172.          Caption         =   "Hebrew/Arabic"
  1173.          Enabled         =   0   'False
  1174.          ForeColor       =   &H00800000&
  1175.          Height          =   252
  1176.          Left            =   -67704
  1177.          TabIndex        =   70
  1178.          Top             =   984
  1179.          Width           =   1296
  1180.       End
  1181.       Begin VB.Label Label25 
  1182.          Caption         =   "Debug version"
  1183.          Enabled         =   0   'False
  1184.          ForeColor       =   &H00800000&
  1185.          Height          =   252
  1186.          Left            =   -69140
  1187.          TabIndex        =   69
  1188.          Top             =   980
  1189.          Width           =   1212
  1190.       End
  1191.       Begin VB.Label Label24 
  1192.          Caption         =   "Pen Windows"
  1193.          Enabled         =   0   'False
  1194.          ForeColor       =   &H00800000&
  1195.          Height          =   252
  1196.          Left            =   -70580
  1197.          TabIndex        =   68
  1198.          Top             =   984
  1199.          Width           =   1212
  1200.       End
  1201.       Begin VB.Label Label_KeyboardLayout 
  1202.          Caption         =   "Label24"
  1203.          ForeColor       =   &H00800000&
  1204.          Height          =   252
  1205.          Left            =   -70800
  1206.          TabIndex        =   67
  1207.          Top             =   3840
  1208.          Width           =   4332
  1209.       End
  1210.       Begin VB.Label Label23 
  1211.          Caption         =   "Keybord layout                 :"
  1212.          Height          =   252
  1213.          Left            =   -72720
  1214.          TabIndex        =   66
  1215.          Top             =   3840
  1216.          Width           =   1932
  1217.       End
  1218.       Begin VB.Label Label_ScreenSaveTimeOut 
  1219.          Caption         =   "Label23"
  1220.          Enabled         =   0   'False
  1221.          ForeColor       =   &H00800000&
  1222.          Height          =   252
  1223.          Left            =   -70452
  1224.          TabIndex        =   65
  1225.          Top             =   2736
  1226.          Width           =   3012
  1227.       End
  1228.       Begin VB.Label Label_DisplayMode 
  1229.          Caption         =   "Label23"
  1230.          ForeColor       =   &H00800000&
  1231.          Height          =   252
  1232.          Left            =   -70668
  1233.          TabIndex        =   61
  1234.          Top             =   1200
  1235.          Width           =   4284
  1236.       End
  1237.       Begin VB.Label Label13 
  1238.          Caption         =   "Display mode   :"
  1239.          Height          =   252
  1240.          Left            =   -72000
  1241.          TabIndex        =   60
  1242.          Top             =   1200
  1243.          Width           =   1332
  1244.       End
  1245.       Begin VB.Label Label_DisplayAdapter 
  1246.          Caption         =   "Label14"
  1247.          ForeColor       =   &H00800000&
  1248.          Height          =   324
  1249.          Left            =   4080
  1250.          TabIndex        =   59
  1251.          Top             =   4080
  1252.          Width           =   4524
  1253.       End
  1254.       Begin VB.Label Label1 
  1255.          Caption         =   "Display adapter      :"
  1256.          Height          =   252
  1257.          Left            =   2520
  1258.          TabIndex        =   58
  1259.          Top             =   4080
  1260.          Width           =   1572
  1261.       End
  1262.       Begin VB.Image Image14 
  1263.          Height          =   2568
  1264.          Left            =   -74760
  1265.          Picture         =   "Main.frx":55BC
  1266.          Top             =   960
  1267.          Width           =   2196
  1268.       End
  1269.       Begin VB.Label Label22 
  1270.          Caption         =   "
  1271.          BeginProperty Font 
  1272.             name            =   "Wingdings"
  1273.             charset         =   2
  1274.             weight          =   400
  1275.             size            =   82.2
  1276.             underline       =   0   'False
  1277.             italic          =   -1  'True
  1278.             strikethrough   =   0   'False
  1279.          EndProperty
  1280.          ForeColor       =   &H00FF0000&
  1281.          Height          =   2052
  1282.          Left            =   -74904
  1283.          TabIndex        =   57
  1284.          Top             =   1320
  1285.          Width           =   2076
  1286.       End
  1287.       Begin VB.Image Image13 
  1288.          Height          =   1452
  1289.          Left            =   -74880
  1290.          Picture         =   "Main.frx":71EE
  1291.          Stretch         =   -1  'True
  1292.          Top             =   1320
  1293.          Width           =   2292
  1294.       End
  1295.       Begin VB.Image Image12 
  1296.          Height          =   2292
  1297.          Left            =   -74880
  1298.          Picture         =   "Main.frx":BAB4
  1299.          Stretch         =   -1  'True
  1300.          Top             =   1080
  1301.          Width           =   2532
  1302.       End
  1303.       Begin VB.Image Image11 
  1304.          Height          =   2292
  1305.          Left            =   120
  1306.          Picture         =   "Main.frx":DD56
  1307.          Stretch         =   -1  'True
  1308.          Top             =   1080
  1309.          Width           =   2292
  1310.       End
  1311.       Begin VB.Label Label_ScreenSaver 
  1312.          Caption         =   "Label23"
  1313.          ForeColor       =   &H00800000&
  1314.          Height          =   252
  1315.          Left            =   -70692
  1316.          TabIndex        =   55
  1317.          Top             =   2436
  1318.          Width           =   3972
  1319.       End
  1320.       Begin VB.Label Label_Wallpaper 
  1321.          Caption         =   "Label22"
  1322.          ForeColor       =   &H00800000&
  1323.          Height          =   252
  1324.          Left            =   -70680
  1325.          TabIndex        =   54
  1326.          Top             =   960
  1327.          Width           =   4212
  1328.       End
  1329.       Begin VB.Label Label21 
  1330.          Caption         =   "Menus                 :"
  1331.          Height          =   252
  1332.          Left            =   -72360
  1333.          TabIndex        =   53
  1334.          Top             =   3960
  1335.          Width           =   1692
  1336.       End
  1337.       Begin VB.Label Label20 
  1338.          Caption         =   "Icons                    :"
  1339.          Height          =   252
  1340.          Left            =   -72360
  1341.          TabIndex        =   52
  1342.          Top             =   3120
  1343.          Width           =   1692
  1344.       End
  1345.       Begin VB.Label Label17 
  1346.          Caption         =   "Taskbar at         :"
  1347.          Height          =   252
  1348.          Left            =   -72360
  1349.          TabIndex        =   51
  1350.          Top             =   1680
  1351.          Width           =   1692
  1352.       End
  1353.       Begin VB.Label Label14 
  1354.          Caption         =   "Screen saver    :"
  1355.          Height          =   252
  1356.          Left            =   -72360
  1357.          TabIndex        =   50
  1358.          Top             =   2400
  1359.          Width           =   1692
  1360.       End
  1361.       Begin VB.Label Label12 
  1362.          Caption         =   "Wallpaper          :"
  1363.          Height          =   252
  1364.          Left            =   -72360
  1365.          TabIndex        =   49
  1366.          Top             =   960
  1367.          Width           =   1692
  1368.       End
  1369.       Begin VB.Label Label6 
  1370.          Caption         =   "File names                         :"
  1371.          Height          =   252
  1372.          Left            =   -72720
  1373.          TabIndex        =   47
  1374.          Top             =   1800
  1375.          Width           =   1932
  1376.       End
  1377.       Begin VB.Label Label_DefaultPrinter 
  1378.          Caption         =   "Label25"
  1379.          ForeColor       =   &H00800000&
  1380.          Height          =   252
  1381.          Left            =   -70680
  1382.          TabIndex        =   38
  1383.          Top             =   4440
  1384.          Width           =   4272
  1385.       End
  1386.       Begin VB.Label Label_Mouse 
  1387.          Caption         =   "Label24"
  1388.          ForeColor       =   &H00800000&
  1389.          Height          =   252
  1390.          Left            =   -70680
  1391.          TabIndex        =   37
  1392.          Top             =   1920
  1393.          Width           =   4212
  1394.       End
  1395.       Begin VB.Label Label_Keyboard 
  1396.          Caption         =   "Label21"
  1397.          ForeColor       =   &H00800000&
  1398.          Height          =   252
  1399.          Left            =   -70680
  1400.          TabIndex        =   36
  1401.          Top             =   2760
  1402.          UseMnemonic     =   0   'False
  1403.          Width           =   4212
  1404.       End
  1405.       Begin VB.Label Label_Monitor 
  1406.          Caption         =   "Label20"
  1407.          ForeColor       =   &H00800000&
  1408.          Height          =   252
  1409.          Left            =   -70680
  1410.          TabIndex        =   35
  1411.          Top             =   840
  1412.          Width           =   4284
  1413.       End
  1414.       Begin VB.Label Label_WinStartTime1 
  1415.          Caption         =   "Label42"
  1416.          ForeColor       =   &H00800000&
  1417.          Height          =   252
  1418.          Left            =   -70800
  1419.          TabIndex        =   34
  1420.          Top             =   4320
  1421.          Width           =   4332
  1422.       End
  1423.       Begin VB.Label Label_WinDir 
  1424.          Caption         =   "Label40"
  1425.          ForeColor       =   &H00800000&
  1426.          Height          =   252
  1427.          Left            =   -70800
  1428.          TabIndex        =   33
  1429.          Top             =   4800
  1430.          Width           =   4332
  1431.       End
  1432.       Begin VB.Label Label39 
  1433.          Caption         =   "Windows start                    :"
  1434.          Height          =   252
  1435.          Left            =   -72720
  1436.          TabIndex        =   32
  1437.          Top             =   4320
  1438.          Width           =   1932
  1439.       End
  1440.       Begin VB.Label Label35 
  1441.          Caption         =   "Windows directory           :"
  1442.          Height          =   252
  1443.          Left            =   -72720
  1444.          TabIndex        =   31
  1445.          Top             =   4800
  1446.          Width           =   1932
  1447.       End
  1448.       Begin VB.Label Label_WinStartTime2 
  1449.          Caption         =   "Label36"
  1450.          ForeColor       =   &H00800000&
  1451.          Height          =   252
  1452.          Left            =   -70440
  1453.          TabIndex        =   30
  1454.          Top             =   4080
  1455.          Width           =   3972
  1456.       End
  1457.       Begin VB.Label Label_LocalTime 
  1458.          Caption         =   "Label35"
  1459.          ForeColor       =   &H00800000&
  1460.          Height          =   252
  1461.          Left            =   -70440
  1462.          TabIndex        =   29
  1463.          Top             =   3480
  1464.          Width           =   3972
  1465.       End
  1466.       Begin VB.Label Label_GMTtime 
  1467.          Caption         =   "Label34"
  1468.          ForeColor       =   &H00800000&
  1469.          Height          =   252
  1470.          Left            =   -70440
  1471.          TabIndex        =   28
  1472.          Top             =   2640
  1473.          Width           =   3972
  1474.       End
  1475.       Begin VB.Label Label_TimeZone 
  1476.          Caption         =   "Label33"
  1477.          ForeColor       =   &H00800000&
  1478.          Height          =   252
  1479.          Left            =   -70440
  1480.          TabIndex        =   27
  1481.          Top             =   1800
  1482.          Width           =   3972
  1483.       End
  1484.       Begin VB.Label Label_LocalTimeName 
  1485.          Caption         =   "Label32"
  1486.          ForeColor       =   &H00800000&
  1487.          Height          =   252
  1488.          Left            =   -70440
  1489.          TabIndex        =   26
  1490.          Top             =   1200
  1491.          Width           =   3972
  1492.       End
  1493.       Begin VB.Label Label31 
  1494.          Caption         =   "Default printer   :"
  1495.          Height          =   252
  1496.          Left            =   -72000
  1497.          TabIndex        =   25
  1498.          Top             =   4440
  1499.          Width           =   1332
  1500.       End
  1501.       Begin VB.Image Image9 
  1502.          Height          =   384
  1503.          Left            =   -72480
  1504.          Picture         =   "Main.frx":F858
  1505.          Top             =   4320
  1506.          Width           =   384
  1507.       End
  1508.       Begin VB.Label Label30 
  1509.          Caption         =   "Windows startup              :"
  1510.          Height          =   252
  1511.          Left            =   -72480
  1512.          TabIndex        =   24
  1513.          Top             =   4080
  1514.          Width           =   2052
  1515.       End
  1516.       Begin VB.Label Label29 
  1517.          Caption         =   "Local time                          :"
  1518.          Height          =   252
  1519.          Left            =   -72480
  1520.          TabIndex        =   23
  1521.          Top             =   3480
  1522.          Width           =   2052
  1523.       End
  1524.       Begin VB.Label Label28 
  1525.          Caption         =   "Greenwich Mean Time  :"
  1526.          Height          =   252
  1527.          Left            =   -72480
  1528.          TabIndex        =   22
  1529.          Top             =   2640
  1530.          Width           =   2052
  1531.       End
  1532.       Begin VB.Label Label27 
  1533.          Caption         =   "Time zone                         :"
  1534.          Height          =   252
  1535.          Left            =   -72480
  1536.          TabIndex        =   21
  1537.          Top             =   1800
  1538.          Width           =   2052
  1539.       End
  1540.       Begin VB.Label Label26 
  1541.          Caption         =   "Local Time name            :"
  1542.          Height          =   252
  1543.          Left            =   -72480
  1544.          TabIndex        =   20
  1545.          Top             =   1200
  1546.          Width           =   2052
  1547.       End
  1548.       Begin VB.Label Label_CodePage 
  1549.          Caption         =   "Label25"
  1550.          ForeColor       =   &H00800000&
  1551.          Height          =   252
  1552.          Left            =   -70800
  1553.          TabIndex        =   19
  1554.          Top             =   3360
  1555.          Width           =   4332
  1556.       End
  1557.       Begin VB.Label Label_Language 
  1558.          Caption         =   "Label24"
  1559.          ForeColor       =   &H00800000&
  1560.          Height          =   252
  1561.          Left            =   -70800
  1562.          TabIndex        =   18
  1563.          Top             =   2880
  1564.          Width           =   4332
  1565.       End
  1566.       Begin VB.Label Label_Shell 
  1567.          Caption         =   "Label22"
  1568.          ForeColor       =   &H00800000&
  1569.          Height          =   252
  1570.          Left            =   -70800
  1571.          TabIndex        =   17
  1572.          Top             =   2400
  1573.          Width           =   4332
  1574.       End
  1575.       Begin VB.Label Label_FileSystem 
  1576.          Caption         =   "Label21"
  1577.          ForeColor       =   &H00800000&
  1578.          Height          =   252
  1579.          Left            =   -70800
  1580.          TabIndex        =   16
  1581.          Top             =   1440
  1582.          Width           =   4332
  1583.       End
  1584.       Begin VB.Label Label_OS 
  1585.          Caption         =   "Label20"
  1586.          ForeColor       =   &H00800000&
  1587.          Height          =   252
  1588.          Left            =   -70800
  1589.          TabIndex        =   15
  1590.          Top             =   720
  1591.          Width           =   4332
  1592.       End
  1593.       Begin VB.Label Label19 
  1594.          Caption         =   "Code page (Ansi/Oem) :"
  1595.          Height          =   252
  1596.          Left            =   -72720
  1597.          TabIndex        =   14
  1598.          Top             =   3360
  1599.          Width           =   1932
  1600.       End
  1601.       Begin VB.Label Label18 
  1602.          Caption         =   "Language                           :"
  1603.          Height          =   252
  1604.          Left            =   -72720
  1605.          TabIndex        =   13
  1606.          Top             =   2880
  1607.          Width           =   1932
  1608.       End
  1609.       Begin VB.Label Label16 
  1610.          Caption         =   "Shell                                     :"
  1611.          Height          =   252
  1612.          Left            =   -72720
  1613.          TabIndex        =   12
  1614.          Top             =   2400
  1615.          Width           =   1932
  1616.       End
  1617.       Begin VB.Label Label15 
  1618.          Caption         =   "File system                        :"
  1619.          Height          =   252
  1620.          Left            =   -72720
  1621.          TabIndex        =   11
  1622.          Top             =   1440
  1623.          Width           =   1932
  1624.       End
  1625.       Begin VB.Label Label11 
  1626.          Caption         =   "Operating system            :"
  1627.          Height          =   252
  1628.          Left            =   -72720
  1629.          TabIndex        =   10
  1630.          Top             =   720
  1631.          Width           =   1932
  1632.       End
  1633.       Begin VB.Label Label_MemoryUtilization 
  1634.          Caption         =   "Label14"
  1635.          ForeColor       =   &H00800000&
  1636.          Height          =   252
  1637.          Left            =   4080
  1638.          TabIndex        =   9
  1639.          Top             =   2400
  1640.          Width           =   4452
  1641.       End
  1642.       Begin VB.Label Label_PhysicalMemory 
  1643.          Caption         =   "Label13"
  1644.          ForeColor       =   &H00800000&
  1645.          Height          =   252
  1646.          Left            =   4080
  1647.          TabIndex        =   8
  1648.          Top             =   1560
  1649.          Width           =   4452
  1650.       End
  1651.       Begin VB.Label Label_Processor 
  1652.          Caption         =   "Label11"
  1653.          ForeColor       =   &H00800000&
  1654.          Height          =   492
  1655.          Left            =   4080
  1656.          TabIndex        =   7
  1657.          Top             =   720
  1658.          Width           =   4452
  1659.       End
  1660.       Begin VB.Label Label10 
  1661.          Caption         =   "Memory utilization   :"
  1662.          Height          =   252
  1663.          Left            =   2520
  1664.          TabIndex        =   6
  1665.          Top             =   2400
  1666.          Width           =   1572
  1667.       End
  1668.       Begin VB.Label Label9 
  1669.          Caption         =   "Physical memory    :"
  1670.          Height          =   252
  1671.          Left            =   2520
  1672.          TabIndex        =   5
  1673.          Top             =   1560
  1674.          Width           =   1572
  1675.       End
  1676.       Begin VB.Label Label7 
  1677.          Caption         =   "Processor                  :"
  1678.          Height          =   252
  1679.          Left            =   2520
  1680.          TabIndex        =   4
  1681.          Top             =   720
  1682.          Width           =   1572
  1683.       End
  1684.       Begin VB.Label Label5 
  1685.          Caption         =   "Mouse                 :"
  1686.          Height          =   252
  1687.          Left            =   -72000
  1688.          TabIndex        =   3
  1689.          Top             =   1920
  1690.          Width           =   1332
  1691.       End
  1692.       Begin VB.Label Label3 
  1693.          Caption         =   "Keyboard           :"
  1694.          Height          =   252
  1695.          Left            =   -72000
  1696.          TabIndex        =   2
  1697.          Top             =   2760
  1698.          Width           =   1332
  1699.       End
  1700.       Begin VB.Label Label2 
  1701.          Caption         =   "Monitor type       :"
  1702.          Height          =   252
  1703.          Left            =   -72000
  1704.          TabIndex        =   1
  1705.          Top             =   840
  1706.          Width           =   1332
  1707.       End
  1708.       Begin VB.Image Image8 
  1709.          Height          =   384
  1710.          Left            =   -72480
  1711.          Picture         =   "Main.frx":FB62
  1712.          Top             =   1800
  1713.          Width           =   384
  1714.       End
  1715.       Begin VB.Image Image7 
  1716.          Height          =   384
  1717.          Left            =   -72480
  1718.          Picture         =   "Main.frx":FFA4
  1719.          Top             =   2640
  1720.          Width           =   384
  1721.       End
  1722.       Begin VB.Image Image6 
  1723.          Height          =   384
  1724.          Left            =   -72480
  1725.          Picture         =   "Main.frx":103E6
  1726.          Top             =   960
  1727.          Width           =   384
  1728.       End
  1729.    End
  1730.    Begin TuneItLib.TuneIt TuneIt1 
  1731.       Left            =   480
  1732.       Top             =   5436
  1733.       _Version        =   65536
  1734.       _ExtentX        =   741
  1735.       _ExtentY        =   741
  1736.       _StockProps     =   64
  1737.       BeginProperty CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1738.          name            =   "MS Sans Serif"
  1739.          charset         =   0
  1740.          weight          =   700
  1741.          size            =   7.8
  1742.          underline       =   0   'False
  1743.          italic          =   0   'False
  1744.          strikethrough   =   0   'False
  1745.       EndProperty
  1746.       BeginProperty SmallCaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1747.          name            =   "MS Sans Serif"
  1748.          charset         =   0
  1749.          weight          =   700
  1750.          size            =   7.8
  1751.          underline       =   0   'False
  1752.          italic          =   0   'False
  1753.          strikethrough   =   0   'False
  1754.       EndProperty
  1755.       BeginProperty MessageFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1756.          name            =   "MS Sans Serif"
  1757.          charset         =   0
  1758.          weight          =   400
  1759.          size            =   7.8
  1760.          underline       =   0   'False
  1761.          italic          =   0   'False
  1762.          strikethrough   =   0   'False
  1763.       EndProperty
  1764.       BeginProperty MenuFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1765.          name            =   "MS Sans Serif"
  1766.          charset         =   0
  1767.          weight          =   400
  1768.          size            =   7.8
  1769.          underline       =   0   'False
  1770.          italic          =   0   'False
  1771.          strikethrough   =   0   'False
  1772.       EndProperty
  1773.       BeginProperty IconTitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1774.          name            =   "MS Sans Serif"
  1775.          charset         =   0
  1776.          weight          =   400
  1777.          size            =   7.8
  1778.          underline       =   0   'False
  1779.          italic          =   0   'False
  1780.          strikethrough   =   0   'False
  1781.       EndProperty
  1782.    End
  1783. Attribute VB_Name = "Form_Main"
  1784. Attribute VB_Creatable = False
  1785. Attribute VB_Exposed = False
  1786. Private Sub Command_Quit_Click()
  1787.   End
  1788. End Sub
  1789. Private Sub Form_Load()
  1790.  Timer1.Interval = 5000
  1791.  '*********   Initialize the controls to show the related system informations ...     ********
  1792.  Label_Processor.Caption = TuneIt1.ProcessorName + IIf(TuneIt1.SlowMachine, "  ( Slow for this operating system. )", "")
  1793.  Label_PhysicalMemory.Caption = CStr(CInt(TuneIt1.TotalPhysicalMemory / 1024)) + " MB"
  1794.  Label_DisplayAdapter.Caption = TuneIt1.DisplayAdapter + " [ driver version " + TuneIt1.DisplayAdapterVersion + " ]"
  1795.  Label_BIOS.Caption = TuneIt1.BIOS
  1796.  Label_MaxColors.Caption = "Maximum colors    :  " + CStr(2 ^ TuneIt1.MaxColorResolution)
  1797.  Label_MaxResolution.Caption = "Highest resolution :  " + CStr(TuneIt1.MaxHorizontalResolution) + "
  1798. " + CStr(TuneIt1.MaxVerticalResolution)
  1799.  Label_LocalTimeName.Caption = TuneIt1.LocalTimeName
  1800.  Label_TimeZone.Caption = TuneIt1.TimeZone
  1801.  Label_WinStartTime2.Caption = Format(TuneIt1.WindowsStartupTime, "ddd, mmm d, yyyy  -  hh:mm:ss AMPM")
  1802.  Label_WinUser.Caption = TuneIt1.WindowsUserName
  1803.  Label_WinOrganization.Caption = TuneIt1.RegisteredOrganization
  1804.  Label_ProductID.Caption = TuneIt1.ProductID
  1805.  Label_OS.Caption = TuneIt1.WindowsPlatform + ",  Ver. " + TuneIt1.WinVersion
  1806.  Check_PenWindows.Value = IIf(TuneIt1.PenWindows, 1, 0)
  1807.  Check_DebugVersion.Value = IIf(TuneIt1.DebugVersion, 1, 0)
  1808.  Check_MiddleEastWin.Value = IIf(TuneIt1.MiddleEastWindows, 1, 0)
  1809.  Label_MaxFileNameLen.Caption = "Maximum " + CStr(TuneIt1.MaxFileNameLength) + " characters."
  1810.  Check_Unicode.Value = IIf(TuneIt1.UnicodeFileName, 1, 0)
  1811.  Check_CasePreserved.Value = IIf(TuneIt1.CasePreservedFileName, 1, 0)
  1812.  Check_CaseSensitive.Value = IIf(TuneIt1.CaseSensitiveFileName, 1, 0)
  1813.  Label_FileSystem.Caption = TuneIt1.FileSystem
  1814.  Label_Shell.Caption = TuneIt1.Shell
  1815.  Label_Language.Caption = TuneIt1.Language
  1816.  Label_CodePage.Caption = "( " + CStr(TuneIt1.AnsiCodePage) + " / " + CStr(TuneIt1.OemCodePage) + " )"
  1817.  Label_KeyboardLayout.Caption = TuneIt1.KeyboardLayout
  1818.  Label_WinDir.Caption = TuneIt1.WindowsDirectory
  1819.  Label_WinDir2.Caption = TuneIt1.WindowsDirectory
  1820.  Label_TempDir.Caption = TuneIt1.TempDirectory
  1821.  Label_COMSPEC = TuneIt1.COMSPEC
  1822.  Label_WinStartTime1.Caption = Choose(TuneIt1.BootType + 1, "Normal boot", "Safe boot", "Safe boot with network support") + "  [ at : " + CStr(TuneIt1.WindowsStartupTime) + " ]"
  1823.  Label_Path.Caption = TuneIt1.Path
  1824.  Label_DisplayMode.Caption = CStr(TuneIt1.HorizontalResolution) + "
  1825. " + CStr(TuneIt1.VerticalResolution) + " / " + CStr(2 ^ TuneIt1.BitsPerPixel) + " colors, " + IIf(TuneIt1.InterlacedDisplay, "Interlaced", "NON-Interlaced")
  1826.  Label_Monitor.Caption = TuneIt1.MonitorType + IIf(TuneIt1.EnergyStarMonitor, "   [ Energy Star compliant ]", "")
  1827.  Label_Mouse.Caption = TuneIt1.MouseType + "  [ " + CStr(TuneIt1.MouseButtons) + " buttons " + IIf(TuneIt1.SwapMouseButtons, "/ Swapped ", "") + "]"
  1828.  Label_DefaultPrinter.Caption = TuneIt1.DefaultPrinter
  1829.  Label_Keyboard.Caption = TuneIt1.KeyboardType
  1830.  Label_SoundDevice.Caption = TuneIt1.SoundDevice
  1831.  Label_FDDs.Caption = CStr(TuneIt1.FloppyDrivesNumber)
  1832.  Label_HDDs.Caption = CStr(TuneIt1.HardDrivesNumber)
  1833.  Label_CDDrives.Caption = CStr(TuneIt1.CdDrivesNumber)
  1834.  Label_RamDrives.Caption = CStr(TuneIt1.RamDrivesNumber)
  1835.  Label_RemoteDrives.Caption = CStr(TuneIt1.RemoteDrivesNumber)
  1836.  Check_IconsUsingAllColors.Value = IIf(TuneIt1.IconsUsingAllColors, 1, 0)
  1837.  Check_IconTitleWrap.Value = IIf(TuneIt1.IconTitleWrap, 1, 0)
  1838.  ' ***** Invoking Timer event for the first time to initialize the related screen items ...
  1839.  Timer1_Timer
  1840. End Sub
  1841. Private Sub Gauge2_Change()
  1842. End Sub
  1843. Private Sub TreeView1_BeforeLabelEdit(Cancel As Integer)
  1844. End Sub
  1845. Private Sub Timer1_Timer()
  1846.  Dim Free, Total, CurrentSwap, MaxSwap, SwapInUse, DiskCache, MaxDiskCache As Long
  1847.  Dim SwapFileUsage As Integer
  1848.  Free = TuneIt1.FreePhysicalMemory
  1849.  Total = TuneIt1.TotalPhysicalMemory
  1850.  CurrentSwap = TuneIt1.SwapFileSize
  1851.  MaxSwap = TuneIt1.MaxSwapFileSize
  1852.  SwapInUse = TuneIt1.SwapFileInUse
  1853.  DiskCache = TuneIt1.DiskCacheSize
  1854.  MaxDiskCache = TuneIt1.MaxDiskCacheSize
  1855.  If CurrentSwap <> 0 Then
  1856.     SwapFileUsage = SwapInUse * 100 \ CurrentSwap
  1857.  Else
  1858.     SwapFileUsage = 0
  1859.  End If
  1860.  Label_VMs.Caption = CStr(TuneIt1.VirtualMachines)
  1861.  Label_Threads.Caption = CStr(TuneIt1.Threads)
  1862.  Label_AllocatedMemory = CStr(TuneIt1.AllocatedMemorySize) + " KB"
  1863.  Label_LockedMemory = CStr(TuneIt1.LockedMemorySize) + " KB"
  1864.  ProgressBar_Mem.Value = (Total - Free) * 100 / Total
  1865.  Label_Memory.Caption = "Memory (Free/Total) : ( " + CStr(Free) + "K / " + CStr(Total) + "K )"
  1866.  If MaxDiskCache <> 0 Then
  1867.      ProgressBar_DiskCache.Value = DiskCache * 100 / MaxDiskCache
  1868.  Else
  1869.      ProgressBar_DiskCache.Value = 0
  1870.  End If
  1871.  Label_DiskCache.Caption = "Disk cache size (Current/Maximum) : ( " + CStr(DiskCache) + "K / " + CStr(MaxDiskCache) + "K )"
  1872.  If MaxSwap <> 0 Then
  1873.      ProgressBar_SwapFile.Value = CurrentSwap * 100 / MaxSwap
  1874.  Else
  1875.     ProgressBar_SwapFile.Value = 0
  1876.  End If
  1877.  Label_SwapFile.Caption = "Swap file (Current/Maximum) : ( " + CStr(CurrentSwap) + "K / " + CStr(MaxSwap) + "K )"
  1878.  ProgressBar_SwapFileUsage.Value = SwapFileUsage
  1879.  Label_SwapFileUsage.Caption = "Swap file usage :   " + CStr(SwapFileUsage) + "%"
  1880.  Label_MemoryUtilization.Caption = CStr(TuneIt1.MemoryUtilization) + "%"
  1881.  Label_TaskbarLocation.Caption = Choose(TuneIt1.TaskbarEdge + 1, "( left )", "( Top )", "( Right )", "( Bottom )", "( No Taskbar )")
  1882.  Check_AlwaysOnTop.Value = IIf(TuneIt1.TaskbarAlwaysOnTop, 1, 0)
  1883.  Check_AutoHide.Value = IIf(TuneIt1.TaskbarAutoHide, 1, 0)
  1884.  Check_MouseSwap.Value = IIf(TuneIt1.SwapMouseButtons, 1, 0)
  1885.  Check_MouseTrails.Value = IIf(TuneIt1.MouseTrails > 0, 1, 0)
  1886.  Label_Wallpaper.Caption = TuneIt1.DesktopWallPaper
  1887.  Label_ScreenSaver.Caption = TuneIt1.ScreenSaver
  1888.  Check_Tiled.Value = IIf(TuneIt1.TileWallPaper, 1, 0)
  1889.  Check_Stretched.Value = IIf(TuneIt1.StretchWallPaper, 1, 0)
  1890.  Check_ScreenSaveActive.Value = IIf(TuneIt1.ScreenSaverActive, 1, 0)
  1891.  Label_ScreenSaveTimeOut.Caption = "Time out :  " + CStr(TuneIt1.ScreenSaverTimeOut) + " sec."
  1892.  Check_MenuRightAlign.Value = IIf(TuneIt1.MenuDropRightAlign, 1, 0)
  1893.  Label_MenuFont.Caption = "Font : " + TuneIt1.IconTitleFont.Name
  1894.  Label_IconType.Caption = Choose(TuneIt1.IconType + 1, "8
  1895. 8", "16
  1896. 16", "32
  1897. 32", "48
  1898. 48", "64
  1899. 64", "96
  1900. 96", "")
  1901.  Label_MenuHeight.Caption = "Height :  " + CStr(TuneIt1.MenuHeight) + " twips"
  1902. End Sub
  1903. Private Sub Timer2_Timer()
  1904. ' ***********************************************************************************
  1905. ' ****  This Timer is faster than Timer1.
  1906. ' ****  But to avoid CPU overhead, only required controls will updated here.
  1907. ' ***********************************************************************************
  1908.   Dim GMT As Date
  1909.   Dim CPUusage As Integer
  1910.   ' ****** Retrieving Greenwich Mean Time ...
  1911.   GMT = Now - TuneIt1.LocalTimeMinusGMT
  1912.   Label_GMTtime.Caption = Format(GMT, "ddd, mmm d, yyyy  -  hh:mm:ss AMPM")
  1913.   Label_LocalTime.Caption = Format(Now, "ddd, mmm d, yyyy  -  hh:mm:ss AMPM")
  1914.   ' ****** Checking keyboard LEDs ...
  1915.   Check_NumLock.Value = IIf(TuneIt1.NumLockOn, 1, 0)
  1916.   Check_CapsLock.Value = IIf(TuneIt1.CapsLockOn, 1, 0)
  1917.   Check_ScrollLock.Value = IIf(TuneIt1.ScrollLockOn, 1, 0)
  1918.   ' ****** Showing CPU utilization ...
  1919.   CPUusage = TuneIt1.ProcessorUsagePercent
  1920.   Label_ProcessorUsage.Caption = "Processor usage  :  " + CStr(CPUusage) + "%"
  1921.   ProgressBar_ProcessorUsage.Value = CPUusage
  1922. End Sub
  1923.