taskbar.frm

不错的一个VB菜单设计 界面和功能都不错

VERSION 5.00
Object = "{75D4F148-8785-11D3-93AD-0000832EF44D}#2.1#0"; "FAST2003.ocx"
Begin VB.Form frmTaskBar 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Task Bar"
   ClientHeight    =   2325
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4950
   Icon            =   "TaskBar.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2325
   ScaleWidth      =   4950
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdHide 
      Caption         =   "Hide"
      Height          =   375
      Left            =   2678
      TabIndex        =   9
      Top             =   1755
      Width           =   1500
   End
   Begin VB.TextBox txtY2 
      Height          =   330
      Left            =   3510
      TabIndex        =   8
      Top             =   1170
      Width           =   960
   End
   Begin VB.TextBox txtX2 
      Height          =   330
      Left            =   2430
      TabIndex        =   6
      Top             =   1170
      Width           =   960
   End
   Begin VB.TextBox txtY1 
      Height          =   330
      Left            =   1305
      TabIndex        =   4
      Top             =   1170
      Width           =   960
   End
   Begin VB.TextBox txtX1 
      Height          =   330
      Left            =   225
      TabIndex        =   2
      Top             =   1170
      Width           =   960
   End
   Begin VB.TextBox txtStatus 
      BackColor       =   &H8000000F&
      Height          =   330
      Left            =   225
      Locked          =   -1  'True
      TabIndex        =   1
      Top             =   315
      Width           =   4605
   End
   Begin VB.CommandButton cmdGetInfo 
      Caption         =   "Obtain information"
      Height          =   375
      Left            =   743
      TabIndex        =   0
      Top             =   1755
      Width           =   1500
   End
   Begin FLWSystem.FWSysTray objSysTray 
      Left            =   135
      Top             =   1650
      _ExtentX        =   820
      _ExtentY        =   820
      Icon            =   0
      Text            =   ""
   End
   Begin FLWSystem.FWTaskBar objTaskBar 
      Left            =   4335
      Top             =   1665
      _ExtentX        =   820
      _ExtentY        =   820
   End
   Begin VB.Label lblLabel 
      AutoSize        =   -1  'True
      Caption         =   "Bottom Right position (X,Y)"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Index           =   2
      Left            =   2430
      TabIndex        =   7
      Top             =   855
      Width           =   2310
   End
   Begin VB.Label lblLabel 
      AutoSize        =   -1  'True
      Caption         =   "Status"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Index           =   1
      Left            =   225
      TabIndex        =   5
      Top             =   90
      Width           =   555
   End
   Begin VB.Label lblLabel 
      AutoSize        =   -1  'True
      Caption         =   "Top Left position"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Index           =   0
      Left            =   225
      TabIndex        =   3
      Top             =   855
      Width           =   1455
   End
   Begin VB.Menu mnuPopUp 
      Caption         =   "Men