home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / SystemTray60016372002.psc / frmAbout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-03-06  |  4.9 KB  |  155 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "About"
  6.    ClientHeight    =   2415
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3615
  10.    Icon            =   "frmAbout.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   161
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   241
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.Label AU 
  20.       Alignment       =   2  'Center
  21.       BackStyle       =   0  'Transparent
  22.       Caption         =   "Susaji"
  23.       BeginProperty Font 
  24.          Name            =   "Verdana"
  25.          Size            =   9.75
  26.          Charset         =   0
  27.          Weight          =   700
  28.          Underline       =   0   'False
  29.          Italic          =   0   'False
  30.          Strikethrough   =   0   'False
  31.       EndProperty
  32.       ForeColor       =   &H00C00000&
  33.       Height          =   255
  34.       Left            =   2400
  35.       TabIndex        =   3
  36.       Top             =   1350
  37.       Width           =   1095
  38.    End
  39.    Begin VB.Label btnAceptar 
  40.       Alignment       =   2  'Center
  41.       BackStyle       =   0  'Transparent
  42.       Caption         =   "Aceptar"
  43.       BeginProperty Font 
  44.          Name            =   "Tahoma"
  45.          Size            =   9.75
  46.          Charset         =   0
  47.          Weight          =   700
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       ForeColor       =   &H00FF0000&
  53.       Height          =   255
  54.       Left            =   1200
  55.       TabIndex        =   2
  56.       Top             =   1920
  57.       Width           =   1215
  58.    End
  59.    Begin VB.Label lblPrompt 
  60.       BackStyle       =   0  'Transparent
  61.       Caption         =   "Dise
  62. ado para hacer facil, rapido y comodo el manejo del SystemTray."
  63.       BeginProperty Font 
  64.          Name            =   "Tahoma"
  65.          Size            =   9.75
  66.          Charset         =   0
  67.          Weight          =   400
  68.          Underline       =   0   'False
  69.          Italic          =   0   'False
  70.          Strikethrough   =   0   'False
  71.       EndProperty
  72.       ForeColor       =   &H00C00000&
  73.       Height          =   735
  74.       Left            =   240
  75.       TabIndex        =   1
  76.       Top             =   840
  77.       Width           =   3135
  78.    End
  79.    Begin VB.Label lblTitle 
  80.       Alignment       =   2  'Center
  81.       BackStyle       =   0  'Transparent
  82.       Caption         =   "SysTray"
  83.       BeginProperty Font 
  84.          Name            =   "Tahoma"
  85.          Size            =   11.25
  86.          Charset         =   0
  87.          Weight          =   700
  88.          Underline       =   0   'False
  89.          Italic          =   0   'False
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       ForeColor       =   &H00C00000&
  93.       Height          =   375
  94.       Left            =   120
  95.       TabIndex        =   0
  96.       Top             =   120
  97.       Width           =   1095
  98.    End
  99.    Begin VB.Image Image1 
  100.       Height          =   405
  101.       Left            =   1320
  102.       Picture         =   "frmAbout.frx":0902
  103.       Top             =   120
  104.       Width           =   2010
  105.    End
  106.    Begin VB.Shape Shape2 
  107.       BackColor       =   &H00FFFFFF&
  108.       BackStyle       =   1  'Opaque
  109.       BorderColor     =   &H00FFC0C0&
  110.       FillColor       =   &H00FFC0C0&
  111.       Height          =   735
  112.       Left            =   0
  113.       Top             =   0
  114.       Width           =   3615
  115.    End
  116.    Begin VB.Shape Shape1 
  117.       BackColor       =   &H00E0E0E0&
  118.       BackStyle       =   1  'Opaque
  119.       BorderColor     =   &H00FFC0C0&
  120.       Height          =   975
  121.       Left            =   0
  122.       Top             =   720
  123.       Width           =   3615
  124.    End
  125.    Begin VB.Shape Shape3 
  126.       BackColor       =   &H00C0C0C0&
  127.       BackStyle       =   1  'Opaque
  128.       BorderColor     =   &H00C0C0C0&
  129.       Height          =   735
  130.       Left            =   0
  131.       Top             =   1680
  132.       Width           =   3615
  133.    End
  134. Attribute VB_Name = "frmAbout"
  135. Attribute VB_GlobalNameSpace = False
  136. Attribute VB_Creatable = False
  137. Attribute VB_PredeclaredId = True
  138. Attribute VB_Exposed = False
  139. Private Sub btnAceptar_Click()
  140.   Unload Me
  141. End Sub
  142. Private Sub btnAceptar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  143.   If btnAceptar.ForeColor = vbBlue Then
  144.     btnAceptar.ForeColor = vbRed
  145.   End If
  146. End Sub
  147. Private Sub Form_Load()
  148.   btnAceptar.ForeColor = vbBlue
  149. End Sub
  150. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  151.   If btnAceptar.ForeColor = vbRed Then
  152.     btnAceptar.ForeColor = vbBlue
  153.   End If
  154. End Sub
  155.