Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/tuneit25/data.z/Main.Frm

Visual Basic Form | 1998-10-16 | 80.2 KB | 2,263 lines

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
Object = "{C5C08340-4E2C-11D0-88EB-444553540000}#2.5#0"; "TUNEIT.OCX"
Begin VB.Form Form_Main
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Windows system information ..."
   ClientHeight    =   6045
   ClientLeft      =   195
   ClientTop       =   615
   ClientWidth     =   9045
   Icon            =   "Main.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   6045
   ScaleWidth      =   9045
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.PictureBox Page
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   4896
      Index           =   8
      Left            =   240
      ScaleHeight     =   4890
      ScaleWidth      =   8640
      TabIndex        =   160
      TabStop         =   0   'False
      Top             =   480
      Width           =   8640
      Begin VB.Label Label_Registration
         Alignment       =   2  'Center
         Caption         =   "Label62"
         BeginProperty Font
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   178
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   360
         Left            =   2244
         MouseIcon       =   "Main.frx":0442
         MousePointer    =   99  'Custom
         TabIndex        =   172
         Top             =   1584
         Width           =   5664
      End
      Begin VB.Label Label_HomePage
         Alignment       =   2  'Center
         Caption         =   "Web :  http://www.angelfire.com/me/majids"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   178
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   492
         Left            =   2400
         MouseIcon       =   "Main.frx":074C
         MousePointer    =   99  'Custom
         TabIndex        =   171
         Top             =   2676
         Width           =   5172
      End
      Begin VB.Label Label_Email
         Alignment       =   2  'Center
         Caption         =   "Copyright
  1997-98, Majid Salimi"
         BeginProperty Font
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   178
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   372
         Left            =   2412
         MouseIcon       =   "Main.frx":0A56
         MousePointer    =   99  'Custom
         TabIndex        =   170
         Top             =   2244
         Width           =   5172
      End
      Begin VB.Label Label70
         Alignment       =   2  'Center
         Caption         =   "WinInfo    ver. 2.5"
         BeginProperty Font
            Name            =   "Times New Roman"
            Size            =   24
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   780
         Left            =   2400
         TabIndex        =   169
         Top             =   360
         Width           =   5172
      End
      Begin VB.Label Label69
         Alignment       =   2  'Center
         Caption         =   "A ""Tune It! OLE control"" sample"
         BeginProperty Font
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   178
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   372
         Left            =   2400
         TabIndex        =   168
         Top             =   1200
         Width           =   5172
      End
      Begin VB.Image Image3
         Height          =   2160
         Left            =   360
         Picture         =   "Main.frx":0D60
         Top             =   480
         Width           =   1980
      End
      Begin VB.Label Label68
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         BackStyle       =   0  'Transparent
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Label4"
         ForeColor       =   &H80000008&
         Height          =   12
         Left            =   480
         TabIndex        =   167
         Top             =   3360
         Width           =   3876
      End
      Begin VB.Label Label67
         Caption         =   "Windows user   :"
         Height          =   252
         Left            =   4560
         TabIndex        =   166
         Top             =   3240
         Width           =   1452
      End
      Begin VB.Label Label_WinUser
         Caption         =   "Label39"
         Height          =   252
         Left            =   6024
         TabIndex        =   165
         Top             =   3240
         Width           =   2412
      End
      Begin VB.Label Label65
         Caption         =   "Organization     :"
         Height          =   252
         Left            =   4584
         TabIndex        =   164
         Top             =   3840
         Width           =   1452
      End
      Begin VB.Label Label_WinOrganization
         Caption         =   "Label40"
         Height          =   252
         Left            =   6024
         TabIndex        =   163
         Top             =   3840
         Width           =   2412
      End
      Begin VB.Label Label64
         Caption         =   "O.S. product ID :"
         Height          =   252
         Left            =   4584
         TabIndex        =   162
         Top             =   4440
         Width           =   1452
      End
      Begin VB.Label Label_ProductID
         Caption         =   "Label41"
         Height          =   252
         Left            =   6024
         TabIndex        =   161
         Top             =   4440
         Width           =   2412
      End
   End
   Begin VB.CommandButton Command_Quit
      Cancel          =   -1  'True
      Caption         =   "&Quit"
      Default         =   -1  'True
      Height          =   372
      Left            =   7260
      TabIndex        =   143
      Top             =   5568
      Width           =   1692
   End
   Begin VB.PictureBox Page
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   4896
      Index           =   7
      Left            =   240
      ScaleHeight     =   4890
      ScaleWidth      =   8640
      TabIndex        =   12
      TabStop         =   0   'False
      Top             =   480
      Width           =   8640
      Begin VB.Frame Frame_InternetClients
         Caption         =   " Default Internet Clients  "
         ForeColor       =   &H00FF0000&
         Height          =   1995
         Left            =   2196
         TabIndex        =   152
         Top             =   2700
         Width           =   6252
         Begin VB.Label Label_TelnetClient
            Caption         =   "Label20"
            ForeColor       =   &H00800000&
            Height          =   255
            Left            =   1020
            TabIndex        =   179
            Top             =   1620
            Width           =   5190
         End
         Begin VB.Label Label_EmailClient
            Caption         =   "Label20"
            ForeColor       =   &H00800000&
            Height          =   255
            Left            =   1020
            TabIndex        =   178
            Top             =   1215
            Width           =   5190
         End
         Begin VB.Label Label_FTPclient
            Caption         =   "Label20"
            ForeColor       =   &H00800000&
            Height          =   255
            Left            =   1020
            TabIndex        =   177
            Top             =   810
            Width           =   5190
         End
         Begin VB.Label Label_WEBbrowser
            Caption         =   "Label20"
            ForeColor       =   &H00800000&
            Height          =   255
            Left            =   1020
            TabIndex        =   176
            Top             =   420
            Width           =   5190
         End
         Begin VB.Label Label37
            Caption         =   "Telnet  :"
            Height          =   255
            Left            =   195
            TabIndex        =   156
            Top             =   1620
            Width           =   795
         End
         Begin VB.Label Label34
            Caption         =   "Email    :"
            Height          =   255
            Left            =   195
            TabIndex        =   155
            Top             =   1215
            Width           =   795
         End
         Begin VB.Label Label4
            Caption         =   "Ftp      :"
            Height          =   255
            Left            =   195
            TabIndex        =   154
            Top             =   810
            Width           =   795
         End
         Begin VB.Label Label33
            Caption         =   "Web    :"
            Height          =   255
            Left            =   195
            TabIndex        =   153
            Top             =   405
            Width           =   795
         End
      End
      Begin VB.Frame Frame_Workgroup
         Caption         =   " Workgroup  "
         ForeColor       =   &H00FF0000&
         Height          =   1665
         Left            =   2196
         TabIndex        =   149
         Top             =   150
         Width           =   6252
         Begin VB.Label Label_WorkgroupComputerDesc
            Caption         =   " "
            ForeColor       =   &H00800000&
            Height          =   255
            Left            =   1890
            TabIndex        =   175
            Top             =   1275
            Width           =   4305
         End
         Begin VB.Label Label_WorkgroupComputerName
            Caption         =   " "
            ForeColor       =   &H00800000&
            Height          =   255
            Left            =   1890
            TabIndex        =   174
            Top             =   840
            Width           =   4305
         End
         Begin VB.Label Label_WorkgroupName
            Caption         =   " "
            ForeColor       =   &H00800000&
            Height          =   255
            Left            =   1890
            TabIndex        =   173
            Top             =   435
            Width           =   4305
         End
         Begin VB.Label Label77
            Caption         =   "Computer description :"
            Height          =   255
            Left            =   195
            TabIndex        =   159
            Top             =   1275
            Width           =   1650
         End
         Begin VB.Label Label52
            Caption         =   "Computer name         :"
            Height          =   255
            Left            =   195
            TabIndex        =   158
            Top             =   840
            Width           =   1650
         End
         Begin VB.Label Label38
            Caption         =   "Workgroup name      :"
            Height          =   255
            Left            =   195
            TabIndex        =   157
            Top             =   435
            Width           =   1650
         End
      End
      Begin VB.Image Image4
         Height          =   480
         Left            =   2175
         Picture         =   "Main.frx":1CAA
         Top             =   2070
         Width           =   480
      End
      Begin VB.Label Label_NetworkAdapter
         Caption         =   "Label20"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4080
         TabIndex        =   151
         Top             =   2190
         Width           =   4290
      End
      Begin VB.Label Label8
         Caption         =   "Network adapter:"
         Height          =   255
         Left            =   2700
         TabIndex        =   150
         Top             =   2175
         Width           =   1395
      End
      Begin VB.Image Image10
         Height          =   2160
         Left            =   120
         Picture         =   "Main.frx":1FB4
         Top             =   195
         Width           =   1980
      End
   End
   Begin VB.PictureBox Page
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   4896
      Index           =   6
      Left            =   240
      ScaleHeight     =   4890
      ScaleWidth      =   8640
      TabIndex        =   7
      TabStop         =   0   'False
      Top             =   480
      Width           =   8640
      Begin VB.Frame Frame1
         Caption         =   " Number of available logical drives   "
         ClipControls    =   0   'False
         ForeColor       =   &H00FF0000&
         Height          =   1692
         Left            =   2196
         TabIndex        =   129
         Top             =   360
         Width           =   6252
         Begin VB.Image Image17
            Height          =   480
            Left            =   360
            Picture         =   "Main.frx":2EFE
            ToolTipText     =   "Removable drives (Floppy,ZipDrive,SuperDisk,...)"
            Top             =   600
            Width           =   480
         End
         Begin VB.Image Image18
            Height          =   480
            Left            =   3000
            Picture         =   "Main.frx":3208
            ToolTipText     =   "Local hard drives"
            Top             =   600
            Width           =   480
         End
         Begin VB.Image Image19
            Height          =   480
            Left            =   1680
            Picture         =   "Main.frx":3512
            ToolTipText     =   "CD drives"
            Top             =   600
            Width           =   480
         End
         Begin VB.Image Image20
            Height          =   480
            Left            =   4320
            Picture         =   "Main.frx":381C
            ToolTipText     =   "Ram drive"
            Top             =   600
            Width           =   480
         End
         Begin VB.Image Image21
            Height          =   480
            Left            =   5520
            Picture         =   "Main.frx":3B26
            ToolTipText     =   "Network drives"
            Top             =   600
            Width           =   480
         End
         Begin VB.Label Label_FDDs
            Alignment       =   2  'Center
            Caption         =   "2"
            BeginProperty Font
               Name            =   "Times New Roman"
               Size            =   13.5
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00808080&
            Height          =   375
            Left            =   300
            TabIndex        =   134
            Top             =   1080
            Width           =   615
         End
         Begin VB.Label Label_CDDrives
            Alignment       =   2  'Center
            Caption         =   "1"
            BeginProperty Font
               Name            =   "Times New Roman"
               Size            =   13.5
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00808080&
            Height          =   375
            Left            =   1560
            TabIndex        =   133
            Top             =   1080
            Width           =   615
         End
         Begin VB.Label Label_HDDs
            Alignment       =   2  'Center
            Caption         =   "3"
            BeginProperty Font
               Name            =   "Times New Roman"
               Size            =   13.5
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00808080&
            Height          =   375
            Left            =   2880
            TabIndex        =   132
            Top             =   1080
            Width           =   615
         End
         Begin VB.Label Label_RamDrives
            Alignment       =   2  'Center
            Caption         =   "0"
            BeginProperty Font
               Name            =   "Times New Roman"
               Size            =   13.5
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00808080&
            Height          =   375
            Left            =   4200
            TabIndex        =   131
            Top             =   1080
            Width           =   615
         End
         Begin VB.Label Label_RemoteDrives
            Alignment       =   2  'Center
            Caption         =   "0"
            BeginProperty Font
               Name            =   "Times New Roman"
               Size            =   13.5
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00808080&
            Height          =   375
            Left            =   5400
            TabIndex        =   130
            Top             =   1080
            Width           =   615
         End
      End
      Begin VB.Label Label36
         Caption         =   "Temp directory         :"
         Height          =   252
         Left            =   2196
         TabIndex        =   142
         Top             =   3120
         Width           =   1692
      End
      Begin VB.Label Label_TempDir
         Caption         =   "Label41"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   3888
         TabIndex        =   141
         Top             =   3120
         Width           =   4572
      End
      Begin VB.Label Label51
         Caption         =   "Path                         :"
         Height          =   252
         Left            =   2196
         TabIndex        =   140
         Top             =   2520
         Width           =   1644
      End
      Begin VB.Label Label_Path
         Caption         =   "Label52"
         BeginProperty Font
            Name            =   "Times New Roman"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   615
         Left            =   3900
         TabIndex        =   139
         Top             =   2535
         Width           =   4785
         WordWrap        =   -1  'True
      End
      Begin VB.Label Label57
         Caption         =   "Windows directory   :"
         Height          =   252
         Left            =   2196
         TabIndex        =   138
         Top             =   3720
         Width           =   1692
      End
      Begin VB.Label Label_WinDir2
         Caption         =   "Label58"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   3876
         TabIndex        =   137
         Top             =   3720
         Width           =   4452
      End
      Begin VB.Label Label58
         Caption         =   "COMSPEC               :"
         Height          =   252
         Left            =   2196
         TabIndex        =   136
         Top             =   4320
         Width           =   1692
      End
      Begin VB.Label Label_COMSPEC
         Caption         =   "Label59"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   3876
         TabIndex        =   135
         Top             =   4320
         Width           =   4572
      End
      Begin VB.Image Image16
         Height          =   1056
         Left            =   0
         Picture         =   "Main.frx":3E30
         Stretch         =   -1  'True
         Top             =   996
         Width           =   2088
      End
   End
   Begin VB.PictureBox Page
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   4896
      Index           =   5
      Left            =   240
      ScaleHeight     =   4890
      ScaleWidth      =   8640
      TabIndex        =   6
      TabStop         =   0   'False
      Top             =   480
      Width           =   8640
      Begin ComctlLib.ProgressBar ProgressBar_SwapFileUsage
         Height          =   165
         Left            =   4500
         TabIndex        =   113
         Top             =   4620
         Width           =   4005
         _ExtentX        =   7064
         _ExtentY        =   291
         _Version        =   327680
         BorderStyle     =   1
         Appearance      =   0
      End
      Begin ComctlLib.ProgressBar ProgressBar_SwapFile
         Height          =   165
         Left            =   0
         TabIndex        =   128
         Top             =   4620
         Width           =   4005
         _ExtentX        =   7064
         _ExtentY        =   291
         _Version        =   327680
         BorderStyle     =   1
         Appearance      =   0
      End
      Begin ComctlLib.ProgressBar ProgressBar_Mem
         Height          =   165
         Left            =   0
         TabIndex        =   126
         Top             =   3840
         Width           =   4005
         _ExtentX        =   7064
         _ExtentY        =   291
         _Version        =   327680
         BorderStyle     =   1
         Appearance      =   0
      End
      Begin ComctlLib.ProgressBar ProgressBar_DiskCache
         Height          =   165
         Left            =   4500
         TabIndex        =   114
         Top             =   3840
         Width           =   4005
         _ExtentX        =   7064
         _ExtentY        =   291
         _Version        =   327680
         BorderStyle     =   1
         Appearance      =   0
      End
      Begin ComctlLib.ProgressBar ProgressBar_ProcessorUsage
         Height          =   165
         Left            =   0
         TabIndex        =   124
         Top             =   3120
         Width           =   8520
         _ExtentX        =   15028
         _ExtentY        =   291
         _Version        =   327680
         BorderStyle     =   1
         Appearance      =   0
      End
      Begin VB.Label Label_SwapFile
         Alignment       =   2  'Center
         Caption         =   "Label52"
         ForeColor       =   &H00808080&
         Height          =   255
         Left            =   0
         TabIndex        =   127
         Top             =   4365
         Width           =   4020
      End
      Begin VB.Label Label_Memory
         Alignment       =   2  'Center
         Caption         =   "Label15"
         ForeColor       =   &H00808080&
         Height          =   255
         Left            =   0
         TabIndex        =   125
         Top             =   3585
         Width           =   4005
      End
      Begin VB.Label Label_ProcessorUsage
         Alignment       =   2  'Center
         Caption         =   "Label53"
         ForeColor       =   &H00808080&
         Height          =   255
         Left            =   0
         TabIndex        =   123
         Top             =   2850
         Width           =   8505
      End
      Begin VB.Label Label53
         Caption         =   "Virtual Machines     :"
         Height          =   252
         Left            =   2448
         TabIndex        =   122
         Top             =   600
         Width           =   1812
      End
      Begin VB.Label Label54
         Caption         =   "Threads                  :"
         Height          =   252
         Left            =   2448
         TabIndex        =   121
         Top             =   1080
         Width           =   1812
      End
      Begin VB.Label Label55
         Caption         =   "Allocated memory  :"
         Height          =   252
         Left            =   2448
         TabIndex        =   120
         Top             =   1560
         Width           =   1812
      End
      Begin VB.Label Label56
         Caption         =   "Locked memory     :"
         Height          =   252
         Left            =   2460
         TabIndex        =   119
         Top             =   2040
         Width           =   1752
      End
      Begin VB.Label Label_VMs
         Caption         =   "Label57"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4248
         TabIndex        =   118
         Top             =   600
         Width           =   4212
      End
      Begin VB.Label Label_Threads
         Caption         =   "Label57"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4248
         TabIndex        =   117
         Top             =   1080
         Width           =   4212
      End
      Begin VB.Label Label_AllocatedMemory
         Caption         =   "Label57"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4248
         TabIndex        =   116
         Top             =   1560
         Width           =   4212
      End
      Begin VB.Label Label_LockedMemory
         Caption         =   "Label57"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4248
         TabIndex        =   115
         Top             =   2040
         Width           =   4212
      End
      Begin VB.Image Image15
         Height          =   1452
         Left            =   48
         Picture         =   "Main.frx":5152
         Stretch         =   -1  'True
         Top             =   720
         Width           =   2052
      End
      Begin VB.Label Label_DiskCache
         Alignment       =   2  'Center
         Caption         =   "Label57"
         ForeColor       =   &H00808080&
         Height          =   255
         Left            =   4455
         TabIndex        =   112
         Top             =   3585
         Width           =   4110
      End
      Begin VB.Label Label_SwapFileUsage
         Alignment       =   2  'Center
         Caption         =   "Label58"
         ForeColor       =   &H00808080&
         Height          =   255
         Left            =   4455
         TabIndex        =   111
         Top             =   4350
         Width           =   4110
      End
   End
   Begin VB.PictureBox Page
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   4896
      Index           =   4
      Left            =   240
      ScaleHeight     =   4890
      ScaleWidth      =   8640
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   480
      Width           =   8640
      Begin VB.CheckBox Check_Tiled
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4080
         TabIndex        =   91
         Top             =   840
         Width           =   202
      End
      Begin VB.CheckBox Check_Stretched
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   6240
         TabIndex        =   90
         Top             =   840
         Width           =   202
      End
      Begin VB.CheckBox Check_ScreenSaveActive
         Enabled         =   0   'False
         Height          =   252
         Left            =   4080
         TabIndex        =   89
         Top             =   2328
         Width           =   202
      End
      Begin VB.CheckBox Check_AlwaysOnTop
         Enabled         =   0   'False
         Height          =   252
         Left            =   4080
         TabIndex        =   88
         Top             =   1560
         Width           =   202
      End
      Begin VB.CheckBox Check_AutoHide
         Enabled         =   0   'False
         Height          =   252
         Left            =   6240
         TabIndex        =   87
         Top             =   1560
         Width           =   202
      End
      Begin VB.CheckBox Check_IconsUsingAllColors
         Enabled         =   0   'False
         Height          =   252
         Left            =   4080
         TabIndex        =   86
         Top             =   3012
         Width           =   252
      End
      Begin VB.CheckBox Check_MenuRightAlign
         Enabled         =   0   'False
         Height          =   252
         Left            =   4080
         TabIndex        =   85
         Top             =   3852
         Width           =   252
      End
      Begin VB.CheckBox Check_IconTitleWrap
         Enabled         =   0   'False
         Height          =   252
         Left            =   6240
         TabIndex        =   84
         Top             =   3012
         Width           =   252
      End
      Begin VB.Label Label12
         Caption         =   "Wallpaper          :"
         Height          =   252
         Left            =   2400
         TabIndex        =   110
         Top             =   600
         Width           =   1668
      End
      Begin VB.Label Label14
         Caption         =   "Screen saver    :"
         Height          =   252
         Left            =   2400
         TabIndex        =   109
         Top             =   2040
         Width           =   1644
      End
      Begin VB.Label Label17
         Caption         =   "Taskbar at         :"
         Height          =   252
         Left            =   2400
         TabIndex        =   108
         Top             =   1320
         Width           =   1656
      End
      Begin VB.Label Label20
         Caption         =   "Icons                    :"
         Height          =   252
         Left            =   2400
         TabIndex        =   107
         Top             =   2760
         Width           =   1692
      End
      Begin VB.Label Label21
         Caption         =   "Menus                 :"
         Height          =   252
         Left            =   2400
         TabIndex        =   106
         Top             =   3600
         Width           =   1692
      End
      Begin VB.Label Label_Wallpaper
         Caption         =   "Label22"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4080
         TabIndex        =   105
         Top             =   600
         Width           =   4212
      End
      Begin VB.Label Label_ScreenSaver
         Caption         =   "Label23"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4068
         TabIndex        =   104
         Top             =   2076
         Width           =   3972
      End
      Begin VB.Image Image14
         Height          =   2568
         Left            =   0
         Picture         =   "Main.frx":6E24
         Top             =   600
         Width           =   2196
      End
      Begin VB.Label Label_ScreenSaveTimeOut
         Caption         =   "Label23"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4308
         TabIndex        =   103
         Top             =   2376
         Width           =   3012
      End
      Begin VB.Label Label47
         Caption         =   "Tiled"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4296
         TabIndex        =   102
         Top             =   876
         Width           =   1212
      End
      Begin VB.Label Label48
         Caption         =   "Stretched"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   6456
         TabIndex        =   101
         Top             =   876
         Width           =   1572
      End
      Begin VB.Label Label_TaskbarLocation
         Caption         =   "Label49"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4080
         TabIndex        =   100
         Top             =   1320
         Width           =   4212
      End
      Begin VB.Label Label49
         Caption         =   "Always on top"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4296
         TabIndex        =   99
         Top             =   1596
         Width           =   1812
      End
      Begin VB.Label Label50
         Caption         =   "Auto hide"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   6456
         TabIndex        =   98
         Top             =   1596
         Width           =   1812
      End
      Begin VB.Label Label_IconType
         Caption         =   "Label62"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4080
         TabIndex        =   97
         Top             =   2760
         Width           =   4212
      End
      Begin VB.Label Label_MenuHeight
         Caption         =   "Label63"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4080
         TabIndex        =   96
         Top             =   3600
         Width           =   4212
      End
      Begin VB.Label Label_IconsUsingAllColors
         Caption         =   "Show using all colors"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4320
         TabIndex        =   95
         Top             =   3048
         Width           =   1884
      End
      Begin VB.Label Label_IconTitleWrap
         Caption         =   "Wrap title"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   6492
         TabIndex        =   94
         Top             =   3048
         Width           =   1812
      End
      Begin VB.Label Label66
         Caption         =   "Right aligned"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4332
         TabIndex        =   93
         Top             =   3888
         Width           =   1812
      End
      Begin VB.Label Label_MenuFont
         Caption         =   "Label67"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   6480
         TabIndex        =   92
         Top             =   3888
         Width           =   1884
      End
   End
   Begin VB.PictureBox Page
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   4896
      Index           =   3
      Left            =   240
      ScaleHeight     =   4890
      ScaleWidth      =   8640
      TabIndex        =   4
      TabStop         =   0   'False
      Top             =   480
      Width           =   8640
      Begin VB.Label Label26
         Caption         =   "Local Time name            :"
         Height          =   252
         Left            =   2400
         TabIndex        =   83
         Top             =   840
         Width           =   2052
      End
      Begin VB.Label Label27
         Caption         =   "Time zone                         :"
         Height          =   252
         Left            =   2400
         TabIndex        =   82
         Top             =   1440
         Width           =   2052
      End
      Begin VB.Label Label28
         Caption         =   "Greenwich Mean Time  :"
         Height          =   252
         Left            =   2400
         TabIndex        =   81
         Top             =   2280
         Width           =   2052
      End
      Begin VB.Label Label29
         Caption         =   "Local time                          :"
         Height          =   252
         Left            =   2400
         TabIndex        =   80
         Top             =   3120
         Width           =   2052
      End
      Begin VB.Label Label30
         Caption         =   "Windows startup              :"
         Height          =   252
         Left            =   2400
         TabIndex        =   79
         Top             =   3720
         Width           =   2052
      End
      Begin VB.Label Label_LocalTimeName
         Caption         =   "Label32"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4440
         TabIndex        =   78
         Top             =   840
         Width           =   3972
      End
      Begin VB.Label Label_TimeZone
         Caption         =   "Label33"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4440
         TabIndex        =   77
         Top             =   1440
         Width           =   3972
      End
      Begin VB.Label Label_GMTtime
         Caption         =   "Label34"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4440
         TabIndex        =   76
         Top             =   2280
         Width           =   3972
      End
      Begin VB.Label Label_LocalTime
         Caption         =   "Label35"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4440
         TabIndex        =   75
         Top             =   3120
         Width           =   3972
      End
      Begin VB.Label Label_WinStartTime2
         Caption         =   "Label36"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4440
         TabIndex        =   74
         Top             =   3720
         Width           =   3972
      End
      Begin VB.Image Image13
         Height          =   1452
         Left            =   0
         Picture         =   "Main.frx":8A56
         Stretch         =   -1  'True
         Top             =   960
         Width           =   2292
      End
   End
   Begin VB.PictureBox Page
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   4875
      Index           =   2
      Left            =   240
      ScaleHeight     =   4875
      ScaleWidth      =   8640
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   480
      Width           =   8640
      Begin VB.CheckBox Check_DebugVersion
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   5535
         TabIndex        =   48
         Top             =   360
         Width           =   202
      End
      Begin VB.CheckBox Check_PenWindows
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4104
         TabIndex        =   47
         Top             =   360
         Width           =   202
      End
      Begin VB.CheckBox Check_MiddleEastWin
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   6975
         TabIndex        =   46
         Top             =   360
         Width           =   202
      End
      Begin VB.CheckBox Check_Unicode
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4104
         TabIndex        =   45
         Top             =   1905
         Width           =   202
      End
      Begin VB.CheckBox Check_CasePreserved
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   5535
         TabIndex        =   44
         Top             =   1935
         Width           =   202
      End
      Begin VB.CheckBox Check_CaseSensitive
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   6975
         TabIndex        =   43
         Top             =   1935
         Width           =   202
      End
      Begin VB.Label Label_PLUSversion
         Caption         =   "Label20"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4110
         TabIndex        =   148
         Top             =   720
         Width           =   4320
      End
      Begin VB.Label Label63
         Caption         =   "Microsoft PLUS             :"
         Height          =   255
         Left            =   2175
         TabIndex        =   147
         Top             =   720
         Width           =   1890
      End
      Begin VB.Label Label11
         Caption         =   "Operating system           :"
         Height          =   255
         Left            =   2175
         TabIndex        =   73
         Top             =   90
         Width           =   1890
      End
      Begin VB.Label Label15
         Caption         =   "File system                    :"
         Height          =   255
         Left            =   2175
         TabIndex        =   72
         Top             =   1185
         Width           =   1905
      End
      Begin VB.Label Label16
         Caption         =   "Shell                              :"
         Height          =   255
         Left            =   2175
         TabIndex        =   71
         Top             =   2280
         Width           =   1905
      End
      Begin VB.Label Label18
         Caption         =   "Language                     :"
         Height          =   255
         Left            =   2175
         TabIndex        =   70
         Top             =   2745
         Width           =   1905
      End
      Begin VB.Label Label19
         Caption         =   "Code page (Ansi/Oem) :"
         Height          =   255
         Left            =   2175
         TabIndex        =   69
         Top             =   3195
         Width           =   1905
      End
      Begin VB.Label Label_OS
         Caption         =   "Label20"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4110
         TabIndex        =   68
         Top             =   90
         Width           =   4335
      End
      Begin VB.Label Label_FileSystem
         Caption         =   "Label21"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4125
         TabIndex        =   67
         Top             =   1200
         Width           =   4335
      End
      Begin VB.Label Label_Shell
         Caption         =   "Label22"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4110
         TabIndex        =   66
         Top             =   2280
         Width           =   4335
      End
      Begin VB.Label Label_Language
         Caption         =   "Label24"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4125
         TabIndex        =   65
         Top             =   2760
         Width           =   4335
      End
      Begin VB.Label Label_CodePage
         Caption         =   "Label25"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4110
         TabIndex        =   64
         Top             =   3225
         Width           =   4335
      End
      Begin VB.Label Label35
         Caption         =   "Windows directory         :"
         Height          =   255
         Left            =   2175
         TabIndex        =   63
         Top             =   4560
         Width           =   1905
      End
      Begin VB.Label Label39
         Caption         =   "Windows start               :"
         Height          =   255
         Left            =   2175
         TabIndex        =   62
         Top             =   4110
         Width           =   1905
      End
      Begin VB.Label Label_WinDir
         Caption         =   "Label40"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4110
         TabIndex        =   61
         Top             =   4575
         Width           =   4335
      End
      Begin VB.Label Label_WinStartTime1
         Caption         =   "Label42"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4095
         TabIndex        =   60
         Top             =   4125
         Width           =   4335
      End
      Begin VB.Label Label6
         Caption         =   "File names                     :"
         Height          =   255
         Left            =   2175
         TabIndex        =   59
         Top             =   1665
         Width           =   1890
      End
      Begin VB.Label Label22
         Caption         =   "
         BeginProperty Font
            Name            =   "Wingdings"
            Size            =   82.5
            Charset         =   2
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   2052
         Left            =   0
         TabIndex        =   58
         Top             =   960
         Width           =   2076
      End
      Begin VB.Label Label23
         Caption         =   "Keybord layout              :"
         Height          =   255
         Left            =   2175
         TabIndex        =   57
         Top             =   3645
         Width           =   1890
      End
      Begin VB.Label Label_KeyboardLayout
         Caption         =   "Label24"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4110
         TabIndex        =   56
         Top             =   3690
         Width           =   4335
      End
      Begin VB.Label Label24
         Caption         =   "Pen Windows"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4320
         TabIndex        =   55
         Top             =   390
         Width           =   1215
      End
      Begin VB.Label Label25
         Caption         =   "Debug version"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   5745
         TabIndex        =   54
         Top             =   405
         Width           =   1215
      End
      Begin VB.Label Label40
         Caption         =   "Hebrew/Arabic"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   7185
         TabIndex        =   53
         Top             =   390
         Width           =   1245
      End
      Begin VB.Label Label41
         Caption         =   "Unicode"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4320
         TabIndex        =   52
         Top             =   1950
         Width           =   1215
      End
      Begin VB.Label Label42
         Caption         =   "Case preserved"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   5745
         TabIndex        =   51
         Top             =   1950
         Width           =   1215
      End
      Begin VB.Label Label43
         Caption         =   "Case sensitive"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   7185
         TabIndex        =   50
         Top             =   1950
         Width           =   1305
      End
      Begin VB.Label Label_MaxFileNameLen
         Caption         =   "Label51"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4125
         TabIndex        =   49
         Top             =   1680
         Width           =   4335
      End
   End
   Begin VB.PictureBox Page
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   4896
      Index           =   1
      Left            =   240
      ScaleHeight     =   4890
      ScaleWidth      =   8640
      TabIndex        =   2
      TabStop         =   0   'False
      Top             =   480
      Width           =   8640
      Begin VB.CheckBox Check_NumLock
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   4200
         TabIndex        =   25
         Top             =   2415
         Width           =   202
      End
      Begin VB.CheckBox Check_CapsLock
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   5580
         TabIndex        =   24
         Top             =   2400
         Width           =   202
      End
      Begin VB.CheckBox Check_ScrollLock
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   7065
         TabIndex        =   23
         Top             =   2415
         Width           =   202
      End
      Begin VB.CheckBox Check_MouseSwap
         Enabled         =   0   'False
         Height          =   252
         Left            =   5580
         TabIndex        =   22
         Top             =   1440
         Width           =   228
      End
      Begin VB.CheckBox Check_MouseTrails
         Enabled         =   0   'False
         Height          =   276
         Left            =   4200
         TabIndex        =   21
         Top             =   1440
         Width           =   216
      End
      Begin VB.Label Label_SCSIadapter
         Caption         =   "Label60"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4200
         TabIndex        =   146
         Top             =   3780
         Width           =   4275
      End
      Begin VB.Label Label62
         Caption         =   "Scsi adapter     :"
         Height          =   255
         Left            =   2880
         TabIndex        =   145
         Top             =   3765
         Width           =   1320
      End
      Begin VB.Image Image2
         Height          =   480
         Left            =   2370
         Picture         =   "Main.frx":D31C
         Top             =   3645
         Width           =   480
      End
      Begin VB.Image Image6
         Height          =   480
         Left            =   2370
         Picture         =   "Main.frx":D75E
         Top             =   180
         Width           =   480
      End
      Begin VB.Image Image7
         Height          =   480
         Left            =   2370
         Picture         =   "Main.frx":DA68
         Top             =   1935
         Width           =   480
      End
      Begin VB.Image Image8
         Height          =   480
         Left            =   2370
         Picture         =   "Main.frx":DEAA
         Top             =   1005
         Width           =   480
      End
      Begin VB.Label Label2
         Caption         =   "Monitor type       :"
         Height          =   255
         Left            =   2880
         TabIndex        =   42
         Top             =   135
         Width           =   1320
      End
      Begin VB.Label Label3
         Caption         =   "Keyboard           :"
         Height          =   255
         Left            =   2880
         TabIndex        =   41
         Top             =   2070
         Width           =   1335
      End
      Begin VB.Label Label5
         Caption         =   "Mouse               :"
         Height          =   255
         Left            =   2880
         TabIndex        =   40
         Top             =   1125
         Width           =   1335
      End
      Begin VB.Image Image9
         Height          =   480
         Left            =   2370
         Picture         =   "Main.frx":E2EC
         Top             =   4380
         Width           =   480
      End
      Begin VB.Label Label31
         Caption         =   "Default printer   :"
         Height          =   255
         Left            =   2880
         TabIndex        =   39
         Top             =   4530
         Width           =   1320
      End
      Begin VB.Label Label_Monitor
         Caption         =   "Label20"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4200
         TabIndex        =   38
         Top             =   150
         Width           =   4350
      End
      Begin VB.Label Label_Keyboard
         Caption         =   "Label21"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4200
         TabIndex        =   37
         Top             =   2070
         UseMnemonic     =   0   'False
         Width           =   4215
      End
      Begin VB.Label Label_Mouse
         Caption         =   "Label24"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4200
         TabIndex        =   36
         Top             =   1140
         Width           =   4215
      End
      Begin VB.Label Label_DefaultPrinter
         Caption         =   "Label25"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4200
         TabIndex        =   35
         Top             =   4530
         Width           =   4275
      End
      Begin VB.Image Image12
         Height          =   2292
         Left            =   0
         Picture         =   "Main.frx":E5F6
         Stretch         =   -1  'True
         Top             =   612
         Width           =   2532
      End
      Begin VB.Label Label13
         Caption         =   "Display mode   :"
         Height          =   255
         Left            =   2880
         TabIndex        =   34
         Top             =   540
         Width           =   1335
      End
      Begin VB.Label Label_DisplayMode
         Caption         =   "Label23"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4200
         TabIndex        =   33
         Top             =   540
         Width           =   4275
      End
      Begin VB.Label Label44
         Caption         =   "Num Lock"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4425
         TabIndex        =   32
         Top             =   2445
         Width           =   1095
      End
      Begin VB.Label Label45
         Caption         =   "Caps Lock"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   5805
         TabIndex        =   31
         Top             =   2430
         Width           =   1185
      End
      Begin VB.Label Label46
         Caption         =   "Scroll Lock"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   7290
         TabIndex        =   30
         Top             =   2430
         Width           =   1125
      End
      Begin VB.Label Label59
         Caption         =   "Sound device   :"
         Height          =   255
         Left            =   2880
         TabIndex        =   29
         Top             =   2970
         Width           =   1320
      End
      Begin VB.Image Image1
         Height          =   480
         Left            =   2370
         Picture         =   "Main.frx":10898
         Top             =   2865
         Width           =   480
      End
      Begin VB.Label Label_SoundDevice
         Caption         =   "Label60"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   4200
         TabIndex        =   28
         Top             =   2970
         Width           =   4275
      End
      Begin VB.Label Label60
         Caption         =   "Swapped buttons"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   5805
         TabIndex        =   27
         Top             =   1455
         Width           =   2130
      End
      Begin VB.Label Label61
         Caption         =   "Trails"
         Enabled         =   0   'False
         ForeColor       =   &H00800000&
         Height          =   270
         Left            =   4425
         TabIndex        =   26
         Top             =   1455
         Width           =   990
      End
   End
   Begin VB.PictureBox Page
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   4896
      Index           =   0
      Left            =   240
      ScaleHeight     =   4890
      ScaleWidth      =   8640
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   480
      Width           =   8640
      Begin VB.Label Label_NumberOfProcessors
         Caption         =   "Label12"
         ForeColor       =   &H00800000&
         Height          =   372
         Left            =   3960
         TabIndex        =   144
         Top             =   600
         Width           =   4452
      End
      Begin VB.Label Label7
         Caption         =   "Processor              :"
         Height          =   252
         Left            =   2400
         TabIndex        =   20
         Top             =   240
         Width           =   1548
      End
      Begin VB.Label Label9
         Caption         =   "Physical memory    :"
         Height          =   252
         Left            =   2400
         TabIndex        =   19
         Top             =   1080
         Width           =   1548
      End
      Begin VB.Label Label10
         Caption         =   "Memory utilization   :"
         Height          =   252
         Left            =   2400
         TabIndex        =   18
         Top             =   1920
         Width           =   1560
      End
      Begin VB.Label Label_Processor
         Caption         =   "Label11"
         ForeColor       =   &H00800000&
         Height          =   372
         Left            =   3960
         TabIndex        =   17
         Top             =   240
         Width           =   4452
      End
      Begin VB.Label Label_PhysicalMemory
         Caption         =   "Label13"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   3960
         TabIndex        =   16
         Top             =   1080
         Width           =   4452
      End
      Begin VB.Label Label_MemoryUtilization
         Caption         =   "Label14"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   3960
         TabIndex        =   15
         Top             =   1920
         Width           =   4452
      End
      Begin VB.Image Image11
         Height          =   2292
         Left            =   0
         Picture         =   "Main.frx":10BA2
         Stretch         =   -1  'True
         Top             =   600
         Width           =   2292
      End
      Begin VB.Label Label1
         Caption         =   "Display adapter      :"
         Height          =   252
         Left            =   2400
         TabIndex        =   14
         Top             =   3600
         Width           =   1548
      End
      Begin VB.Label Label_DisplayAdapter
         Caption         =   "Label14"
         ForeColor       =   &H00800000&
         Height          =   330
         Left            =   3960
         TabIndex        =   13
         Top             =   3600
         Width           =   4650
      End
      Begin VB.Label Label32
         Caption         =   "BIOS                     :"
         Height          =   252
         Left            =   2412
         TabIndex        =   11
         Top             =   2772
         Width           =   1548
      End
      Begin VB.Label Label_BIOS
         Caption         =   "Label53"
         ForeColor       =   &H00800000&
         Height          =   735
         Left            =   3960
         TabIndex        =   10
         Top             =   2760
         Width           =   4650
         WordWrap        =   -1  'True
      End
      Begin VB.Label Label_MaxResolution
         Caption         =   "Label8"
         ForeColor       =   &H00800000&
         Height          =   276
         Left            =   3960
         TabIndex        =   9
         Top             =   4320
         Width           =   4452
      End
      Begin VB.Label Label_MaxColors
         Caption         =   "Label8"
         ForeColor       =   &H00800000&
         Height          =   252
         Left            =   3960
         TabIndex        =   8
         Top             =   3960
         Width           =   4452
      End
   End
   Begin VB.Timer Timer2
      Interval        =   1000
      Left            =   1440
      Top             =   5520
   End
   Begin VB.Timer Timer1
      Interval        =   5000
      Left            =   960
      Top             =   5520
   End
   Begin ComctlLib.TabStrip TabStrip1
      Height          =   5325
      Left            =   90
      TabIndex        =   0
      Top             =   120
      Width           =   8880
      _ExtentX        =   15663
      _ExtentY        =   9393
      TabWidthStyle   =   2
      TabFixedWidth   =   1870
      _Version        =   327680
      BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7}
         NumTabs         =   9
         BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7}
            Caption         =   "&Machine"
            Object.Tag             =   ""
            Object.ToolTipText     =   "Processor, Ram, BIOS ..."
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7}
            Caption         =   "&Peripherals"
            Object.Tag             =   ""
            Object.ToolTipText     =   "Monitor, Keyboard, Sound ..."
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7}
            Caption         =   "&Windows"
            Object.Tag             =   ""
            Object.ToolTipText     =   "Version, language, code page..."
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab4 {0713F341-850A-101B-AFC0-4210102A8DA7}
            Caption         =   "&Time"
            Object.Tag             =   ""
            Object.ToolTipText     =   "Time zone, Windows startup time..."
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab5 {0713F341-850A-101B-AFC0-4210102A8DA7}
            Caption         =   "&Desktop"
            Object.Tag             =   ""
            Object.ToolTipText     =   "Wallpaper, screen saver, ..."
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab6 {0713F341-850A-101B-AFC0-4210102A8DA7}
            Caption         =   "&Resources"
            Object.Tag             =   ""
            Object.ToolTipText     =   "Free memory, processor load, ..."
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab7 {0713F341-850A-101B-AFC0-4210102A8DA7}
            Caption         =   "Dri&ves"
            Object.Tag             =   ""
            Object.ToolTipText     =   "Existing drives, path, ..."
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab8 {0713F341-850A-101B-AFC0-4210102A8DA7}
            Caption         =   "&Network"
            Object.Tag             =   ""
            Object.ToolTipText     =   "Adapter, Workgroup, ..."
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab9 {0713F341-850A-101B-AFC0-4210102A8DA7}
            Caption         =   "&About ..."
            Object.Tag             =   ""
            Object.ToolTipText     =   "Application definition..."
            ImageVarType    =   2
         EndProperty
      EndProperty
   End
   Begin TuneItLib.TuneIt TuneIt1
      Left            =   210
      Top             =   5505
      _Version        =   131077
      _ExtentX        =   1080
      _ExtentY        =   868
      _StockProps     =   64
      BeginProperty CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty SmallCaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty StatusFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty MessageFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty MenuFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty IconTitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
Attribute VB_Name = "Form_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command_Quit_Click()
End Sub
Private Sub Form_Load()
 Page(0).ZOrder 0
 For I = 0 To TabStrip1.Tabs.Count - 1
  Page(I).Left = 240
  Page(I).Top = 480
 Next I
 Timer1.Interval = 5000
 '*********   Initialize the controls to show the related system informations ...     ********
 Label_Processor.Caption = TuneIt1.ProcessorName + IIf(TuneIt1.SlowMachine, "  ( Slow for this operating system. )", "")
 Label_NumberOfProcessors.Caption = "( " + CStr(TuneIt1.NumberOfProcessors) + " processor" + IIf(TuneIt1.NumberOfProcessors > 1, "s", "") + " detected. )"
 Label_PhysicalMemory.Caption = CStr(CInt(TuneIt1.TotalPhysicalMemory / 1024#)) + " MB  RAM"
 Label_DisplayAdapter.Caption = TuneIt1.DisplayAdapter + "  [ driver version " + TuneIt1.DisplayAdapterVersion + " ]"
 Label_BIOS.Caption = TuneIt1.BIOS
 Label_MaxColors.Caption = "Maximum colors    :  " + CStr(2 ^ TuneIt1.MaxColorResolution)
 Label_MaxResolution.Caption = "Highest resolution :  " + CStr(TuneIt1.MaxHorizontalResolution) + "
" + CStr(TuneIt1.MaxVerticalResolution)
 Label_LocalTimeName.Caption = TuneIt1.LocalTimeName
 Label_TimeZone.Caption = TuneIt1.TimeZone
 Label_WinStartTime2.Caption = Format(TuneIt1.WindowsStartupTime, "ddd, mmm d, yyyy  -  hh:mm:ss AMPM")
 Label_WinUser.Caption = TuneIt1.WindowsUserName
 Label_WinOrganization.Caption = TuneIt1.RegisteredOrganization
 Label_ProductID.Caption = TuneIt1.ProductID
 Label_OS.Caption = TuneIt1.WindowsPlatform + ",  Ver. " + TuneIt1.WinVersion
 Label_PLUSversion.Caption = IIf(TuneIt1.PlusInstalled, "version: " + TuneIt1.PlusVersion, "Not installed")
 Check_PenWindows.Value = IIf(TuneIt1.PenWindows, 1, 0)
 Check_DebugVersion.Value = IIf(TuneIt1.DebugVersion, 1, 0)
 Check_MiddleEastWin.Value = IIf(TuneIt1.MiddleEastWindows, 1, 0)
 Label_MaxFileNameLen.Caption = "Maximum " + CStr(TuneIt1.MaxFileNameLength) + " characters."
 Check_Unicode.Value = IIf(TuneIt1.UnicodeFileName, 1, 0)
 Check_CasePreserved.Value = IIf(TuneIt1.CasePreservedFileName, 1, 0)
 Check_CaseSensitive.Value = IIf(TuneIt1.CaseSensitiveFileName, 1, 0)
 Label_FileSystem.Caption = TuneIt1.FileSystem
 Label_Shell.Caption = TuneIt1.Shell
 Label_Language.Caption = TuneIt1.Language
 Label_CodePage.Caption = "( " + CStr(TuneIt1.AnsiCodePage) + " / " + CStr(TuneIt1.OemCodePage) + " )"
 Label_KeyboardLayout.Caption = TuneIt1.KeyboardLayout
 Label_WinDir.Caption = TuneIt1.WindowsDirectory
 Label_WinDir2.Caption = TuneIt1.WindowsDirectory
 Label_TempDir.Caption = TuneIt1.TempDirectory
 Label_COMSPEC = TuneIt1.COMSPEC
 Label_WinStartTime1.Caption = Choose(TuneIt1.BootType + 1, "Normal boot", "Safe mode", "Safe mode with network support") + "  [ at : " + CStr(TuneIt1.WindowsStartupTime) + " ]"
 Label_Path.Caption = TuneIt1.Path
 Label_DisplayMode.Caption = CStr(TuneIt1.HorizontalResolution) + "
" + CStr(TuneIt1.VerticalResolution) + " / " + CStr(2 ^ TuneIt1.BitsPerPixel) + " colors, " + IIf(TuneIt1.InterlacedDisplay, "Interlaced", "NON-Interlaced")
 Label_Monitor.Caption = TuneIt1.MonitorType + IIf(TuneIt1.EnergyStarMonitor, "   [Energy Star]", "")
 Label_Mouse.Caption = TuneIt1.MouseType + "  [ " + CStr(TuneIt1.MouseButtons) + " buttons " + IIf(TuneIt1.SwapMouseButtons, "/ Swapped ", "") + "]"
 Label_DefaultPrinter.Caption = TuneIt1.DefaultPrinter
 Label_Keyboard.Caption = TuneIt1.KeyboardType
 Label_SoundDevice.Caption = TuneIt1.SoundDevice
 Label_SCSIadapter.Caption = TuneIt1.SCSIAdapter
 Label_FDDs.Caption = CStr(TuneIt1.FloppyDrivesNumber)
 Label_HDDs.Caption = CStr(TuneIt1.HardDrivesNumber)
 Label_CDDrives.Caption = CStr(TuneIt1.CdDrivesNumber)
 Label_RamDrives.Caption = CStr(TuneIt1.RamDrivesNumber)
 Label_RemoteDrives.Caption = CStr(TuneIt1.RemoteDrivesNumber)
 Check_IconsUsingAllColors.Value = IIf(TuneIt1.IconsUsingAllColors, 1, 0)
 Check_IconTitleWrap.Value = IIf(TuneIt1.IconTitleWrap, 1, 0)
 If TuneIt1.NetworkPresent Then
   Label_WorkgroupName.Caption = TuneIt1.Workgroup
   Label_WorkgroupComputerName.Caption = TuneIt1.WorkgroupComputerName
   Label_WorkgroupComputerDesc.Caption = TuneIt1.WorkgroupComputerDescription
 Else
   Frame_Workgroup.Enabled = False
 End If
 Label_WEBbrowser.Caption = TuneIt1.WebBrowser
 Label_FTPclient.Caption = TuneIt1.FtpClient
 Label_EmailClient.Caption = TuneIt1.MailClient
 Label_TelnetClient.Caption = TuneIt1.TelnetClient
 Label_NetworkAdapter.Caption = TuneIt1.NetworkAdapter
 Label_Registration.Caption = "( " & TuneIt1.RegistrationStatus & " )"
 ' ***** Invoking Timer event for the first time to initialize the related screen items ...
 Timer1_Timer
End Sub
Private Sub Label_HomePage_Click()
DefaultBrowser = TuneIt1.WebBrowser
If Len(DefaultBrowser) > 0 Then
 RetVal = Shell(DefaultBrowser + " http://www.angelfire.com/me/majids/TuneItHome.html", 3)
 MsgBox "No Web browser available!"
End If
End Sub
Private Sub Label_Registration_Click()
'''' If the TuneIt ocx has been registered,        ''''
'''' no need to go to the online registration site.''''
 If Form_Main.TuneIt1.RegistrationStatus = "Registered" Then
  Exit Sub
 End If
'''' Obtain the default Web browser address ''''
 DefaultBrowser = Form_Main.TuneIt1.WebBrowser
'''' If we have a default Web browser in system,
'''' add the registration address as command line
'''' and run it, otherwise inform the user ...
 If Len(DefaultBrowser) > 0 Then
  TuneIt_RegistrationAddress = "http://www.angelfire.com/me/majids/RegisterTuneIt.html"
  RetVal = Shell(DefaultBrowser + " " + TuneIt_RegistrationAddress, 3)
 Else
  MsgBox "No Web browser available!"
 End If
End Sub
Private Sub Label_Email_Click()
DefaultBrowser = TuneIt1.WebBrowser
If Len(DefaultBrowser) > 0 Then
 RetVal = Shell(DefaultBrowser + " mailto:[e-mail]", 3)
 MsgBox "No Mail client available!"
End If
End Sub
Private Sub TabStrip1_Click()
 Page(TabStrip1.SelectedItem.Index - 1).ZOrder 0
End Sub
Private Sub Timer1_Timer()
 Dim Free, Total, CurrentSwap, MaxSwap, SwapInUse, DiskCache, MaxDiskCache As Long
 Dim SwapFileUsage As Integer
 Free = TuneIt1.FreePhysicalMemory
 Total = TuneIt1.TotalPhysicalMemory
 CurrentSwap = TuneIt1.SwapFileSize
 MaxSwap = TuneIt1.MaxSwapFileSize
 SwapInUse = TuneIt1.SwapFileInUse
 DiskCache = TuneIt1.DiskCacheSize
 MaxDiskCache = TuneIt1.MaxDiskCacheSize
 If CurrentSwap <> 0 Then
    SwapFileUsage = SwapInUse * 100 \ CurrentSwap
 Else
    SwapFileUsage = 0
 End If
 Label_VMs.Caption = CStr(TuneIt1.VirtualMachines)
 Label_Threads.Caption = CStr(TuneIt1.Threads)
 Label_AllocatedMemory = CStr(TuneIt1.AllocatedMemorySize) + " KB"
 Label_LockedMemory = CStr(TuneIt1.LockedMemorySize) + " KB"
 ProgressBar_Mem.Value = (Total - Free) * 100 / Total
 Label_Memory.Caption = "Memory (Free/Total) :  " + CStr(Free) + "K / " + CStr(Total) + "K"
 If MaxDiskCache <> 0 Then
     ProgressBar_DiskCache.Value = DiskCache * 100 / MaxDiskCache
 Else
     ProgressBar_DiskCache.Value = 0
 End If
 Label_DiskCache.Caption = "Disk cache size (Current/Max) :  " + CStr(DiskCache) + "K / " + CStr(MaxDiskCache) + "K"
 If MaxSwap <> 0 Then
     ProgressBar_SwapFile.Value = CurrentSwap * 100 / MaxSwap
 Else
    ProgressBar_SwapFile.Value = 0
 End If
 Label_SwapFile.Caption = "Swap file (Current/Max) :  " + CStr(CurrentSwap) + "K / " + CStr(MaxSwap) + "K"
 ProgressBar_SwapFileUsage.Value = SwapFileUsage
 Label_SwapFileUsage.Caption = "Swap file usage :   " + CStr(SwapFileUsage) + "%"
 Label_MemoryUtilization.Caption = CStr(TuneIt1.MemoryUtilization) + "%"
 Label_TaskbarLocation.Caption = Choose(TuneIt1.TaskbarEdge + 1, "( left )", "( Top )", "( Right )", "( Bottom )", "( No Taskbar )")
 Check_AlwaysOnTop.Value = IIf(TuneIt1.TaskbarAlwaysOnTop, 1, 0)
 Check_AutoHide.Value = IIf(TuneIt1.TaskbarAutoHide, 1, 0)
 Check_MouseSwap.Value = IIf(TuneIt1.SwapMouseButtons, 1, 0)
 Check_MouseTrails.Value = IIf(TuneIt1.MouseTrails > 0, 1, 0)
 Label_Wallpaper.Caption = IIf(Len(TuneIt1.DesktopWallPaper), TuneIt1.DesktopWallPaper, "(None)")
 Label_ScreenSaver.Caption = IIf(Len(TuneIt1.ScreenSaver), TuneIt1.ScreenSaver, "(None)")
 Check_Tiled.Value = IIf(TuneIt1.TileWallPaper, 1, 0)
 Check_Stretched.Value = IIf(TuneIt1.StretchWallPaper, 1, 0)
 Check_ScreenSaveActive.Value = IIf(TuneIt1.ScreenSaverActive, 1, 0)
 Label_ScreenSaveTimeOut.Caption = "Time out :  " + CStr(TuneIt1.ScreenSaverTimeOut) + " sec."
 Check_MenuRightAlign.Value = IIf(TuneIt1.MenuDropRightAlign, 1, 0)
 Label_MenuFont.Caption = "Font : " + TuneIt1.IconTitleFont.Name
 Label_IconType.Caption = "dimensions: " + Choose(TuneIt1.IconType + 1, "8
8", "16
16", "32
32", "48
48", "64
64", "96
96", "") + " pixels"
 Label_MenuHeight.Caption = "Height :  " + CStr(TuneIt1.MenuHeight) + " twips"
End Sub
Private Sub Timer2_Timer()
' ***********************************************************************************
' ****  This Timer is faster than Timer1.
' ****  To avoid the CPU overhead, just required controls should be updated here.
' ***********************************************************************************
  Dim GMT As Date
  Dim CPUusage As Integer
  ' ****** Retrieving Greenwich Mean Time ...
  GMT = Now - TuneIt1.LocalTimeMinusGMT
  Label_GMTtime.Caption = Format(GMT, "ddd, mmm d, yyyy  -  hh:mm:ss AMPM")
  Label_LocalTime.Caption = Format(Now, "ddd, mmm d, yyyy  -  hh:mm:ss AMPM")
  ' ****** Checking keyboard LEDs ...
  Check_NumLock.Value = IIf(TuneIt1.NumLockOn, 1, 0)
  Check_CapsLock.Value = IIf(TuneIt1.CapsLockOn, 1, 0)
  Check_ScrollLock.Value = IIf(TuneIt1.ScrollLockOn, 1, 0)
  ' ****** Showing CPU utilization ...
  CPUusage = TuneIt1.ProcessorUsagePercent
  Label_ProcessorUsage.Caption = "Processor usage  :  " + CStr(CPUusage) + "%"
  ProgressBar_ProcessorUsage.Value = CPUusage
End Sub