VERSION 5.00
Begin VB.Form frmAbout
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "About"
   ClientHeight    =   1920
   ClientLeft      =   2265
   ClientTop       =   1665
   ClientWidth     =   3750
   Icon            =   "About.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   1920
   ScaleWidth      =   3750
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdOK
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   1320
      TabIndex        =   3
      Top             =   1320
      Width           =   1095
   End
   Begin VB.Image Image1
      Height          =   480
      Left            =   120
      Picture         =   "About.frx":000C
      Top             =   360
      Width           =   480
   End
   Begin VB.Label Label4
      Caption         =   "Redistributed By Permission."
      Height          =   255
      Left            =   720
      TabIndex        =   4
      Top             =   600
      Width           =   3015
   End
   Begin VB.Label Label3
      Caption         =   "http://www.softcircuits.com"
      Height          =   255
      Left            =   720
      TabIndex        =   2
      Top             =   840
      Width           =   3015
   End
   Begin VB.Label Label2
      Caption         =   "Copyright ? SoftCircuits Programming?"
      Height          =   255
      Left            =   720
      TabIndex        =   1
      Top             =   360
      Width           =   3015
   End
   Begin VB.Label Label1
      Caption         =   "System Tray Demo"
      Height          =   255
      Left            =   720
      TabIndex        =   0
      Top             =   120
      Width           =   3015
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'SysTray - System Tray Demo
'Copyright (c) 1997 SoftCircuits Programming (R)
'Redistributed by Permission.
'
'This program demonstrates how to display an icon on the system taskbar
'(tray notification area) under Windows 95 and later, or Windows NT 4.0 or
'later. The program first determines if it is running under one of these
'operating systems and terminates if it is not.
'
'Although you do not need a subclassing control to place an icon on the
'system taskbar, you will need one to respond to tray notification
'messages. This program uses Subclass.ocx. (Note, it is possible to
'implement a system tray icon without a subclassing control. Because
'Windows allows you to specify the value of the callback message, you can
'specify a message that Visual Basic already supports. For example, you
'can specify the WM_LBUTTONDOWN message and place code in the MouseDown
'event. However, this technique has some limitations. Visual Basic
'interprets the information that accompanies the WM_LBUTTONDOWN message
'as mouse coordinates and, depending on the form's scale mode, may modify
'data that provides information about the system tray. Also, this would
'cause a conflict if you also needed to intercept real MouseDown events.)
'
'The program is a simple one. It has 4 possible icons each indicating a
'particular level of memory usage. This icon is updated each time the
'timer control fires. If the user double-clicks the icon or selects Open
'from the context-sensitive menu, the main form is displayed which
'contains more detailed information about the current memory usage.
'
'This program may be distributed on the condition that it is
'distributed in full and unchanged, and that no fee is charged for
'such distribution with the exception of reasonable shipping and media
'charges. In addition, the code in this program may be incorporated
'into your own programs and the resulting programs may be distributed
'without payment of royalties.
'
'This example program was provided by:
' SoftCircuits Programming
' http://www.softcircuits.com
' P.O. Box 16262
' Irvine, CA 92623
Option Explicit

Private Sub cmdOK_Click()
    Unload Me
End Sub