home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / caller_id_1903666192005.psc / about.frm < prev    next >
Text File  |  2005-06-19  |  22KB  |  663 lines
  1. VERSION 5.00
  2. Begin VB.Form FAB 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About Box"
  5.    ClientHeight    =   4485
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1425
  8.    ClientWidth     =   6240
  9.    ClipControls    =   0   'False
  10.    FillColor       =   &H00FFFFFF&
  11.    BeginProperty Font 
  12.       Name            =   "MS Sans Serif"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Icon            =   "about.frx":0000
  22.    LinkTopic       =   "Form2"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    Moveable        =   0   'False
  26.    PaletteMode     =   1  'UseZOrder
  27.    ScaleHeight     =   4485
  28.    ScaleWidth      =   6240
  29.    ShowInTaskbar   =   0   'False
  30.    StartUpPosition =   2  'CenterScreen
  31.    Begin VB.Timer FSR_Check 
  32.       Enabled         =   0   'False
  33.       Interval        =   1000
  34.       Left            =   240
  35.       Top             =   1140
  36.    End
  37.    Begin VB.CommandButton CommandOK 
  38.       Cancel          =   -1  'True
  39.       Caption         =   "&OK"
  40.       Default         =   -1  'True
  41.       BeginProperty Font 
  42.          Name            =   "MS Sans Serif"
  43.          Size            =   8.25
  44.          Charset         =   0
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Height          =   375
  51.       Left            =   5280
  52.       TabIndex        =   0
  53.       Top             =   3960
  54.       Width           =   800
  55.    End
  56.    Begin VB.PictureBox SSPanel1 
  57.       BackColor       =   &H00B0D8E8&
  58.       Height          =   735
  59.       Left            =   120
  60.       ScaleHeight     =   675
  61.       ScaleWidth      =   675
  62.       TabIndex        =   17
  63.       Top             =   120
  64.       Width           =   735
  65.       Begin VB.PictureBox IconPicture 
  66.          AutoSize        =   -1  'True
  67.          BorderStyle     =   0  'None
  68.          Height          =   480
  69.          Left            =   120
  70.          Picture         =   "about.frx":000C
  71.          ScaleHeight     =   480
  72.          ScaleWidth      =   480
  73.          TabIndex        =   1
  74.          Top             =   120
  75.          Width           =   480
  76.       End
  77.    End
  78.    Begin VB.Label Label1 
  79.       Caption         =   "denimboy01@yahoo.com"
  80.       ForeColor       =   &H000000FF&
  81.       Height          =   375
  82.       Left            =   3840
  83.       TabIndex        =   24
  84.       Top             =   2280
  85.       Width           =   2175
  86.    End
  87.    Begin VB.Label Label132 
  88.       Caption         =   $"about.frx":044E
  89.       BeginProperty Font 
  90.          Name            =   "MS Sans Serif"
  91.          Size            =   8.25
  92.          Charset         =   0
  93.          Weight          =   400
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       Height          =   615
  99.       Left            =   840
  100.       TabIndex        =   23
  101.       Top             =   1560
  102.       Width           =   4815
  103.       WordWrap        =   -1  'True
  104.    End
  105.    Begin VB.Label OptLabel 
  106.       BorderStyle     =   1  'Fixed Single
  107.       Caption         =   "Label1"
  108.       Height          =   45
  109.       Index           =   9
  110.       Left            =   900
  111.       TabIndex        =   22
  112.       Top             =   2940
  113.       Width           =   4395
  114.    End
  115.    Begin VB.Label OptLabel 
  116.       Caption         =   "%  in Use"
  117.       BeginProperty Font 
  118.          Name            =   "MS Sans Serif"
  119.          Size            =   8.25
  120.          Charset         =   0
  121.          Weight          =   400
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       Height          =   255
  127.       Index           =   19
  128.       Left            =   3000
  129.       TabIndex        =   21
  130.       Top             =   4090
  131.       Width           =   2055
  132.    End
  133.    Begin VB.Label OptLabel 
  134.       Caption         =   "System Memory Load:"
  135.       BeginProperty Font 
  136.          Name            =   "MS Sans Serif"
  137.          Size            =   8.25
  138.          Charset         =   0
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Height          =   255
  145.       Index           =   18
  146.       Left            =   960
  147.       TabIndex        =   20
  148.       Top             =   4090
  149.       Width           =   1995
  150.    End
  151.    Begin VB.Label OptLabel 
  152.       Caption         =   "Free Virtual"
  153.       BeginProperty Font 
  154.          Name            =   "MS Sans Serif"
  155.          Size            =   8.25
  156.          Charset         =   0
  157.          Weight          =   400
  158.          Underline       =   0   'False
  159.          Italic          =   0   'False
  160.          Strikethrough   =   0   'False
  161.       EndProperty
  162.       Height          =   255
  163.       Index           =   17
  164.       Left            =   3000
  165.       TabIndex        =   19
  166.       Top             =   3835
  167.       Width           =   2055
  168.    End
  169.    Begin VB.Label OptLabel 
  170.       Caption         =   "Virtual Memory:"
  171.       BeginProperty Font 
  172.          Name            =   "MS Sans Serif"
  173.          Size            =   8.25
  174.          Charset         =   0
  175.          Weight          =   400
  176.          Underline       =   0   'False
  177.          Italic          =   0   'False
  178.          Strikethrough   =   0   'False
  179.       EndProperty
  180.       Height          =   255
  181.       Index           =   16
  182.       Left            =   960
  183.       TabIndex        =   18
  184.       Top             =   3835
  185.       Width           =   1995
  186.    End
  187.    Begin VB.Label OptLabel 
  188.       BorderStyle     =   1  'Fixed Single
  189.       Height          =   45
  190.       Index           =   5
  191.       Left            =   840
  192.       TabIndex        =   16
  193.       Top             =   2160
  194.       Width           =   4395
  195.    End
  196.    Begin VB.Label OptLabel 
  197.       BorderStyle     =   1  'Fixed Single
  198.       Height          =   45
  199.       Index           =   2
  200.       Left            =   840
  201.       TabIndex        =   15
  202.       Top             =   1440
  203.       Width           =   4395
  204.    End
  205.    Begin VB.Label OptLabel 
  206.       Caption         =   "Free Paging"
  207.       BeginProperty Font 
  208.          Name            =   "MS Sans Serif"
  209.          Size            =   8.25
  210.          Charset         =   0
  211.          Weight          =   400
  212.          Underline       =   0   'False
  213.          Italic          =   0   'False
  214.          Strikethrough   =   0   'False
  215.       EndProperty
  216.       Height          =   255
  217.       Index           =   15
  218.       Left            =   3000
  219.       TabIndex        =   14
  220.       Top             =   3580
  221.       Width           =   2055
  222.    End
  223.    Begin VB.Label OptLabel 
  224.       Caption         =   "Paging Memory:"
  225.       BeginProperty Font 
  226.          Name            =   "MS Sans Serif"
  227.          Size            =   8.25
  228.          Charset         =   0
  229.          Weight          =   400
  230.          Underline       =   0   'False
  231.          Italic          =   0   'False
  232.          Strikethrough   =   0   'False
  233.       EndProperty
  234.       Height          =   255
  235.       Index           =   14
  236.       Left            =   960
  237.       TabIndex        =   13
  238.       Top             =   3580
  239.       Width           =   1995
  240.    End
  241.    Begin VB.Label OptLabel 
  242.       Caption         =   "Version:"
  243.       BeginProperty Font 
  244.          Name            =   "MS Sans Serif"
  245.          Size            =   8.25
  246.          Charset         =   0
  247.          Weight          =   400
  248.          Underline       =   0   'False
  249.          Italic          =   0   'False
  250.          Strikethrough   =   0   'False
  251.       EndProperty
  252.       Height          =   255
  253.       Index           =   7
  254.       Left            =   960
  255.       TabIndex        =   12
  256.       Top             =   2640
  257.       Width           =   1155
  258.    End
  259.    Begin VB.Label OptLabel 
  260.       Caption         =   "Windows Type"
  261.       BeginProperty Font 
  262.          Name            =   "MS Sans Serif"
  263.          Size            =   8.25
  264.          Charset         =   0
  265.          Weight          =   400
  266.          Underline       =   0   'False
  267.          Italic          =   0   'False
  268.          Strikethrough   =   0   'False
  269.       EndProperty
  270.       Height          =   375
  271.       Index           =   6
  272.       Left            =   960
  273.       TabIndex        =   11
  274.       Top             =   2220
  275.       Width           =   2535
  276.    End
  277.    Begin VB.Label OptLabel 
  278.       Caption         =   "Free Physical"
  279.       BeginProperty Font 
  280.          Name            =   "MS Sans Serif"
  281.          Size            =   8.25
  282.          Charset         =   0
  283.          Weight          =   400
  284.          Underline       =   0   'False
  285.          Italic          =   0   'False
  286.          Strikethrough   =   0   'False
  287.       EndProperty
  288.       Height          =   255
  289.       Index           =   13
  290.       Left            =   3000
  291.       TabIndex        =   10
  292.       Top             =   3325
  293.       Width           =   2055
  294.    End
  295.    Begin VB.Label OptLabel 
  296.       Caption         =   "Physical Memory:"
  297.       BeginProperty Font 
  298.          Name            =   "MS Sans Serif"
  299.          Size            =   8.25
  300.          Charset         =   0
  301.          Weight          =   400
  302.          Underline       =   0   'False
  303.          Italic          =   0   'False
  304.          Strikethrough   =   0   'False
  305.       EndProperty
  306.       Height          =   255
  307.       Index           =   12
  308.       Left            =   960
  309.       TabIndex        =   9
  310.       Top             =   3325
  311.       Width           =   1995
  312.    End
  313.    Begin VB.Label OptLabel 
  314.       Caption         =   "CPU"
  315.       BeginProperty Font 
  316.          Name            =   "MS Sans Serif"
  317.          Size            =   8.25
  318.          Charset         =   0
  319.          Weight          =   400
  320.          Underline       =   0   'False
  321.          Italic          =   0   'False
  322.          Strikethrough   =   0   'False
  323.       EndProperty
  324.       Height          =   255
  325.       Index           =   11
  326.       Left            =   3000
  327.       TabIndex        =   8
  328.       Top             =   3070
  329.       Width           =   2055
  330.    End
  331.    Begin VB.Label OptLabel 
  332.       Caption         =   "CPU Type:"
  333.       BeginProperty Font 
  334.          Name            =   "MS Sans Serif"
  335.          Size            =   8.25
  336.          Charset         =   0
  337.          Weight          =   400
  338.          Underline       =   0   'False
  339.          Italic          =   0   'False
  340.          Strikethrough   =   0   'False
  341.       EndProperty
  342.       Height          =   255
  343.       Index           =   10
  344.       Left            =   960
  345.       TabIndex        =   7
  346.       Top             =   3070
  347.       Width           =   1995
  348.    End
  349.    Begin VB.Label OptLabel 
  350.       Caption         =   "Build:"
  351.       BeginProperty Font 
  352.          Name            =   "MS Sans Serif"
  353.          Size            =   8.25
  354.          Charset         =   0
  355.          Weight          =   400
  356.          Underline       =   0   'False
  357.          Italic          =   0   'False
  358.          Strikethrough   =   0   'False
  359.       EndProperty
  360.       Height          =   255
  361.       Index           =   8
  362.       Left            =   2160
  363.       TabIndex        =   6
  364.       Top             =   2640
  365.       Width           =   1335
  366.    End
  367.    Begin VB.Label NameLabel 
  368.       Caption         =   "             KITCHEN HOUSE CUSTOMER DETAILS"
  369.       BeginProperty Font 
  370.          Name            =   "MS Sans Serif"
  371.          Size            =   9.75
  372.          Charset         =   0
  373.          Weight          =   700
  374.          Underline       =   0   'False
  375.          Italic          =   0   'False
  376.          Strikethrough   =   0   'False
  377.       EndProperty
  378.       ForeColor       =   &H00FF0000&
  379.       Height          =   255
  380.       Left            =   240
  381.       TabIndex        =   2
  382.       Top             =   120
  383.       Width           =   5235
  384.    End
  385.    Begin VB.Label OptLabel 
  386.       Caption         =   "                                   041-520163"
  387.       BeginProperty Font 
  388.          Name            =   "MS Sans Serif"
  389.          Size            =   8.25
  390.          Charset         =   0
  391.          Weight          =   400
  392.          Underline       =   0   'False
  393.          Italic          =   0   'False
  394.          Strikethrough   =   0   'False
  395.       EndProperty
  396.       Height          =   375
  397.       Index           =   1
  398.       Left            =   1560
  399.       TabIndex        =   5
  400.       Top             =   1080
  401.       Width           =   2955
  402.    End
  403.    Begin VB.Label OptLabel 
  404.       Caption         =   "                                   SAURAV RAUT"
  405.       Height          =   255
  406.       Index           =   0
  407.       Left            =   960
  408.       TabIndex        =   4
  409.       Top             =   840
  410.       Width           =   4275
  411.    End
  412.    Begin VB.Label CoprLabel 
  413.       Caption         =   " Copyright 2005     by"
  414.       BeginProperty Font 
  415.          Name            =   "MS Sans Serif"
  416.          Size            =   8.25
  417.          Charset         =   0
  418.          Weight          =   400
  419.          Underline       =   0   'False
  420.          Italic          =   0   'False
  421.          Strikethrough   =   0   'False
  422.       EndProperty
  423.       Height          =   255
  424.       Left            =   960
  425.       TabIndex        =   3
  426.       Top             =   540
  427.       Width           =   4275
  428.    End
  429. End
  430. Attribute VB_Name = "FAB"
  431. Attribute VB_GlobalNameSpace = False
  432. Attribute VB_Creatable = False
  433. Attribute VB_PredeclaredId = True
  434. Attribute VB_Exposed = False
  435. '
  436. ' *******************************************************************
  437. '
  438. ' Some code and files: 1996 by Gregory H. Bragg, SofTecH Development
  439. '                      1995 by David Warren, MMC Software
  440. ' Some of the Registry code is from the VB4 Setup Kit, SETUP1 files.
  441. '
  442. ' Originally published by PC Magazine. Ported over to
  443. ' 32 Bit VB4 by Gregory H. Bragg starting March 6, 1996
  444. '
  445. ' Original: November 8, 1993  By Neil J. Rubenking
  446. ' Revised:  March 21, 1996    By Gregory H. Bragg
  447. '
  448. ' To use the generic About Box defined in this file, your VBP file
  449. ' must also include the module ABOUTBOX.BAS. Just call the function
  450. ' DisplayAboutBox, passing parameters specific to your program.
  451. ' DO NOT load the form FAB prior to calling DisplayAboutBox!
  452. '
  453. ' *******************************************************************
  454. '
  455. Option Explicit
  456.  
  457. Private Sub CommandOK_Click()
  458.     Unload Me
  459. End Sub
  460.  
  461. Private Sub Form_Load()
  462.     
  463.     Dim lResult As Long
  464.     
  465.     ' First let's centre the Icon picture inside the 3D raised container
  466.     Dim tmp As Integer
  467.     tmp = (SSPanel1.Width - IconPicture.Width) \ 2
  468.     IconPicture.Left = tmp
  469.     tmp = (SSPanel1.Height - IconPicture.Height) \ 2
  470.     IconPicture.Top = tmp
  471.  
  472.     ' If both user and company are excluded, eliminate the second separator
  473.     If ((Excl And AB_NO_USER) = &H1) And ((Excl And AB_NO_COMPANY) = &H2) Then
  474.         EliminateLabel 2
  475.     Else
  476.         ' initialize some variables since we want either
  477.         ' the user name or the company name or both...
  478.         Dim szUserInfo As String, szSubkey As String
  479.         Dim hKey As Long
  480.         Dim Success As Boolean
  481.         szSubkey = "SOFTWARE\Microsoft\Windows\CurrentVersion"
  482.     End If
  483.         
  484.     ' Get the User name from the Registry, if wanted
  485.     If Excl And AB_NO_USER Then
  486.         EliminateLabel 3
  487.     Else
  488.         If (OSRegOpenKeyEx(HKEY_LOCAL_MACHINE, szSubkey, 0&, KEY_QUERY_VALUE, hKey)) = ERROR_SUCCESS Then
  489.             Success = RegQueryStringValue(hKey, "RegisteredOwner", szUserInfo)
  490.             Success = RegCloseKey(hKey)
  491.            
  492.         End If
  493.     End If
  494.     
  495.     ' Get the Company name from the Registry, if wanted
  496.     If Excl And AB_NO_COMPANY Then
  497.         EliminateLabel 4
  498.     Else
  499.         If (OSRegOpenKeyEx(HKEY_LOCAL_MACHINE, szSubkey, 0&, KEY_QUERY_VALUE, hKey)) = ERROR_SUCCESS Then
  500.             Success = RegQueryStringValue(hKey, "RegisteredOrganization", szUserInfo)
  501.             Success = RegCloseKey(hKey)
  502.             
  503.         End If
  504.     End If
  505.     
  506.     ' Show Windows version, if wanted
  507.     If Excl And AB_NO_WIN_VERSION Then
  508.         EliminateLabel 6
  509.         EliminateLabel 7
  510.         OptLabel(8).Visible = False
  511.     Else
  512.         Dim OSVer As OSVERSIONINFO
  513.         OSVer.dwOSVersionInfoSize = Len(OSVer)
  514.         lResult = GetVersionEx(OSVer)
  515.         If lResult Then
  516.             Select Case OSVer.dwPlatformId
  517.                 Case VER_PLATFORM_WIN32s
  518.                     'NOTE: VB4/32 apps won't run on Win32s so this will never happen!
  519.                     OptLabel(6).Caption = "Win32s Subsystem on Windows 3.xx"
  520.                 Case VER_PLATFORM_WIN32_WINDOWS
  521.                     'NOTE: This value applies for all 32-bit non-NT Windows
  522.                     '      versions, not necessarily just Windows 95
  523.                     OptLabel(6).Caption = "Microsoft Windows 95"
  524.                 Case VER_PLATFORM_WIN32_NT
  525.                     OptLabel(6).Caption = "Microsoft Windows NT"
  526.             End Select
  527.         End If
  528.         ' Show Windows version number, if wanted
  529.         If Excl And AB_NO_VERSION_NUMBER Then
  530.             EliminateLabel 7
  531.         Else
  532.             OptLabel(7).Caption = "Version:  " & Format$(OSVer.dwMajorVersion) _
  533.                                   & "." & Format$(OSVer.dwMinorVersion, "00")
  534.         End If
  535.         ' Show Windows build number, if wanted
  536.         If Excl And AB_NO_BUILD_NUMBER Then
  537.             OptLabel(8).Visible = False
  538.         Else
  539.             OptLabel(8).Caption = "Build:  " & Format$(OSVer.dwBuildNumber Mod 65536)
  540.         End If
  541.     End If
  542.   
  543.     ' Show CPU Type, if wanted
  544.     If Excl And AB_NO_CPU Then
  545.         EliminateLabel 10
  546.         OptLabel(11).Visible = False
  547.     Else
  548.         Dim SysInfo As SYSTEM_INFO
  549.         Dim CPU_Name As String
  550.         Call GetSystemInfo(SysInfo)
  551.         Select Case SysInfo.dwProcessorType
  552.             Case PROCESSOR_INTEL_386
  553.                 CPU_Name = "Intel 386"
  554.             Case PROCESSOR_INTEL_486
  555.                 CPU_Name = "Intel 486"
  556.             Case PROCESSOR_INTEL_PENTIUM
  557.                 CPU_Name = "Pentium"
  558.             Case PROCESSOR_MIPS_R2000
  559.                 CPU_Name = "Mips R2000"
  560.             Case PROCESSOR_MIPS_R3000
  561.                 CPU_Name = "Mips R3000"
  562.             Case PROCESSOR_MIPS_R4000
  563.                 CPU_Name = "Mips R4000"
  564.             Case PROCESSOR_ALPHA_21064
  565.                 CPU_Name = "Alpha 21064"
  566.             Case Else ' default if not defined...
  567.                 CPU_Name = Format$(SysInfo.dwProcessorType)
  568.         End Select
  569.         OptLabel(11).Caption = Format$(SysInfo.dwNumberOfProcessors) _
  570.                                & "  " & CPU_Name & "  Processor"
  571.     End If
  572.     
  573.     ' Let's enable the Timer control and call GlobalMemoryStatus()
  574.     ' only if we are going to display the available memory status...
  575.     If (((Excl And AB_NO_PHYSICAL) = &H40) And ((Excl And AB_NO_PAGING) = &H80) _
  576.         And ((Excl And AB_NO_VIRTUAL) = &H100) And ((Excl And AB_NO_MEMLOAD) = &H200)) _
  577.         = False Then
  578.         FSR_Check.Enabled = True    'enable the Timer control
  579.     Else
  580.         If Excl And AB_NO_CPU Then  'eliminate the third separator
  581.             EliminateLabel 9
  582.         End If
  583.     End If
  584.     
  585.     ' Show Physical Memory, if wanted
  586.     If Excl And AB_NO_PHYSICAL Then
  587.         EliminateLabel 12
  588.         OptLabel(13).Visible = False
  589.     End If
  590.   
  591.     ' Show Paging Memory, if wanted
  592.     If Excl And AB_NO_PAGING Then
  593.         EliminateLabel 14
  594.         OptLabel(15).Visible = False
  595.     End If
  596.  
  597.     ' Show Virtual Memory, if wanted
  598.     If Excl And AB_NO_VIRTUAL Then
  599.         EliminateLabel 16
  600.         OptLabel(17).Visible = False
  601.     End If
  602.  
  603.     ' Show Memory Load, if wanted
  604.     If Excl And AB_NO_MEMLOAD Then
  605.         EliminateLabel 18
  606.         OptLabel(19).Visible = False
  607.     End If
  608.     
  609. End Sub
  610.  
  611. '
  612. ' Let's check the memory status every Timer interval since the
  613. ' information returned is volatile, and there is no guarantee
  614. ' that two sequential calls to this function will return the
  615. ' same information...
  616. '
  617. Private Sub FSR_Check_Timer()
  618.     
  619.     Dim MemStat As MEMORYSTATUS
  620.     Dim MemData As Long
  621.     MemStat.dwLength = Len(MemStat)
  622.     Call GlobalMemoryStatus(MemStat)
  623.     
  624.     ' Show Physical Memory, if wanted
  625.     If (Excl And AB_NO_PHYSICAL) = False Then
  626.         MemData = MemStat.dwAvailPhys
  627.         If MemData <= 1024 Then
  628.             OptLabel(13) = Format$(MemData) & "  Bytes Free"
  629.         Else
  630.             OptLabel(13) = Format$(MemData \ 1024, "###,###,###") & "  KB Free"
  631.         End If
  632.     End If
  633.   
  634.     ' Show Paging Memory, if wanted
  635.     If (Excl And AB_NO_PAGING) = False Then
  636.         MemData = MemStat.dwAvailPageFile
  637.         If MemData <= 1024 Then
  638.             OptLabel(15) = Format$(MemData) & "  Bytes Free"
  639.         Else
  640.             OptLabel(15) = Format$(MemData \ 1024, "###,###,###") & "  KB Free"
  641.         End If
  642.     End If
  643.  
  644.     ' Show Virtual Memory, if wanted
  645.     If (Excl And AB_NO_VIRTUAL) = False Then
  646.         MemData = MemStat.dwAvailVirtual
  647.         If MemData <= 1024 Then
  648.             OptLabel(17) = Format$(MemData) & "  Bytes Free"
  649.         Else
  650.             OptLabel(17) = Format$(MemData \ 1024, "###,###,###") & "  KB Free"
  651.         End If
  652.     End If
  653.  
  654.     ' Show Memory Load, if wanted
  655.     If (Excl And AB_NO_MEMLOAD) = False Then
  656.         MemData = MemStat.dwMemoryLoad
  657.         OptLabel(19) = Format$(MemData) & " %  in Use"
  658.     End If
  659.  
  660. End Sub
  661.  
  662.  
  663.