vbAccelerator - Contents of code file: fToolWindow.frm

VERSION 5.00
Begin VB.Form frmToolWindow 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "Tool Window"
   ClientHeight    =   2220
   ClientLeft      =   4500
   ClientTop       =   4740
   ClientWidth     =   4230
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2220
   ScaleWidth      =   4230
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdTitle 
      Caption         =   "&Change"
      Height          =   435
      Left            =   1800
      TabIndex        =   4
      Top             =   480
      Width           =   1155
   End
   Begin VB.CheckBox Check2 
      Caption         =   "Check2"
      Height          =   255
      Left            =   1800
      TabIndex        =   3
      Top             =   1620
      Width           =   2355
   End
   Begin VB.CheckBox Check1 
      Caption         =   "Check1"
      Height          =   255
      Left            =   1800
      TabIndex        =   2
      Top             =   1200
      Width           =   2295
   End
   Begin VB.TextBox txtCaption 
      Height          =   375
      Left            =   1800
      TabIndex        =   1
      Top             =   60
      Width           =   2355
   End
   Begin VB.Label Label1 
      Caption         =   "Main Form Caption:"
      Height          =   315
      Left            =   180
      TabIndex        =   0
      Top             =   120
      Width           =   1575
   End
End
Attribute VB_Name = "frmToolWindow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'
 ===============================================================================
=======
' Name:     vbAccelerator cActiveTitleBar sample
' Author:   Steve McMahon (steve@vbaccelerator.com)
' Date:     25 August 1999
'
' Requires: SSUBTMR.DLL
'           cActiveTitleBar.cls
'
' Copyright  1998-1999 Steve McMahon for vbAccelerator
'
 -------------------------------------------------------------------------------
-------
' Visit vbAccelerator - advanced free source code for VB programmers
' http://vbaccelerator.com
'
 -------------------------------------------------------------------------------
-------

Private c As New cActiveTitleBar
Private m_fParent As Object

Public Property Let ParentForm(ByRef fThis As Object)
   Set m_fParent = fThis
End Property

Private Sub cmdTitle_Click()
   If Not m_fParent Is Nothing Then
      m_fParent.Caption = txtCaption.Text
   End If
End Sub

Private Sub Form_Load()
   c.Attach Me.hWnd
   If Not m_fParent Is Nothing Then
      txtCaption.Text = m_fParent.Caption
   End If
End Sub