home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD62135292000.psc / Titlebar.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-05-29  |  2.6 KB  |  80 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "Custom Titlebar"
  5.    ClientHeight    =   735
  6.    ClientLeft      =   60
  7.    ClientTop       =   630
  8.    ClientWidth     =   3330
  9.    Icon            =   "Titlebar.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   49
  12.    ScaleMode       =   3  'Pixel
  13.    ScaleWidth      =   222
  14.    StartUpPosition =   2  'Bildschirmmitte
  15.    Begin VB.Frame Frame1 
  16.       Caption         =   "Enable/Disable"
  17.       Height          =   735
  18.       Left            =   120
  19.       TabIndex        =   4
  20.       Top             =   0
  21.       Width           =   3015
  22.       Begin VB.CommandButton Sysbut 
  23.          Caption         =   "Close"
  24.          Height          =   375
  25.          Index           =   0
  26.          Left            =   2040
  27.          TabIndex        =   5
  28.          Top             =   240
  29.          Width           =   855
  30.       End
  31.       Begin VB.CommandButton Sysbut 
  32.          Caption         =   "Restore"
  33.          Height          =   375
  34.          Index           =   1
  35.          Left            =   1080
  36.          TabIndex        =   6
  37.          Top             =   240
  38.          Width           =   855
  39.       End
  40.       Begin VB.CommandButton Sysbut 
  41.          Caption         =   "Minimize"
  42.          Height          =   375
  43.          Index           =   2
  44.          Left            =   120
  45.          TabIndex        =   7
  46.          Top             =   240
  47.          Width           =   855
  48.       End
  49.    End
  50.    Begin VB.PictureBox TitleBar 
  51.       Appearance      =   0  '2D
  52.       AutoRedraw      =   -1  'True
  53.       BackColor       =   &H80000002&
  54.       BorderStyle     =   0  'Kein
  55.       FillStyle       =   0  'Ausgef
  56.       BeginProperty Font 
  57.          Name            =   "MS Sans Serif"
  58.          Size            =   8.25
  59.          Charset         =   0
  60.          Weight          =   700
  61.          Underline       =   0   'False
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       ForeColor       =   &H00FF0000&
  66.       Height          =   270
  67.       Left            =   0
  68.       ScaleHeight     =   18
  69.       ScaleMode       =   0  'Benutzerdefiniert
  70.       ScaleWidth      =   297
  71.       TabIndex        =   0
  72.       Top             =   1200
  73.       Width           =   4455
  74.       Begin VB.CommandButton sMinimize 
  75.          Caption         =   "0"
  76.          BeginProperty Font 
  77.             Name            =   "Marlett"
  78.                  Underline      
  79.   leMoeHeight        =   60SCGeight        =   60SCu1     CaptS\
  80.