vbAccelerator - Contents of code file: mfTest.frm

VERSION 5.00
Begin VB.MDIForm mfrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "Graduated Title Bar Test"
   ClientHeight    =   6405
   ClientLeft      =   3810
   ClientTop       =   2580
   ClientWidth     =   8610
   LinkTopic       =   "MDIForm1"
   Begin VB.PictureBox picTools 
      Align           =   3  'Align Left
      BorderStyle     =   0  'None
      Height          =   6405
      Left            =   0
      ScaleHeight     =   6405
      ScaleWidth      =   1365
      TabIndex        =   0
      Top             =   0
      Width           =   1365
      Begin VB.PictureBox picLogo 
         AutoRedraw      =   -1  'True
         AutoSize        =   -1  'True
         Height          =   255
         Left            =   0
         Picture         =   "mfTest.frx":0000
         ScaleHeight     =   195
         ScaleWidth      =   1185
         TabIndex        =   1
         Top             =   0
         Visible         =   0   'False
         Width           =   1245
      End
   End
   Begin VB.Menu mnuFileTOP 
      Caption         =   "&File"
      Begin VB.Menu mnuFile 
         Caption         =   "&Open"
         Index           =   0
      End
      Begin VB.Menu mnuFile 
         Caption         =   "-"
         Index           =   1
      End
      Begin VB.Menu mnuFile 
         Caption         =   "E&xit"
         Index           =   2
      End
   End
   Begin VB.Menu mnuEditTop 
      Caption         =   "&Edit"
      Begin VB.Menu mnuEdit 
         Caption         =   "&Cut"
         Index           =   0
      End
      Begin VB.Menu mnuEdit 
         Caption         =   "&Copy"
         Index           =   1
      End
      Begin VB.Menu mnuEdit 
         Caption         =   "&Paste"
         Index           =   2
      End
   End
   Begin VB.Menu mnuWindowTop 
      Caption         =   "&Window"
      WindowList      =   -1  'True
   End
   Begin VB.Menu mnuHelpTOP 
      Caption         =   "&Help"
      Begin VB.Menu mnuHelp 
         Caption         =   "&Contents"
         Index           =   0
      End
      Begin VB.Menu mnuHelp 
         Caption         =   "&Search for Help on..."
         Index           =   1
      End
      Begin VB.Menu mnuHelp 
         Caption         =   "-"
         Index           =   2
      End
      Begin VB.Menu mnuHelp 
         Caption         =   "&About"
         Index           =   3
      End
   End
End
Attribute VB_Name = "mfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_cT As New cTitleBar
Public Sub RefreshCaption()
    m_cT.RefreshTitleBar
End Sub

Private Sub MDIForm_Load()
   
   m_cT.Picture = picLogo
   m_cT.GradientForm Me
   
   Dim f As frmTest
   Set f = New frmTest
   f.Show
   
   Set f = New frmTest
   f.Show
   f.Caption = "Window 2"
   
   frmToolWin.Show
    
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    Unload frmToolWin
    Unload frmNonMDI
   m_cT.GradientReleaseForm
End Sub

Private Sub mnuFile_Click(Index As Integer)
Select Case Index
Case 0
    Dim f As New frmTest
    f.Show
Case 2
    Unload Me
End Select
End Sub