vbAccelerator - Contents of code file: mfMDITest.frm

VERSION 5.00
Begin VB.MDIForm mfrmMDITest 
   BackColor       =   &H8000000C&
   Caption         =   "vbAccelerator MDI Form Caption Focus Modifier Sample"
   ClientHeight    =   5220
   ClientLeft      =   4695
   ClientTop       =   2760
   ClientWidth     =   7320
   Icon            =   "mfMDITest.frx":0000
   LinkTopic       =   "MDIForm1"
   Begin VB.PictureBox picToolbar 
      Align           =   1  'Align Top
      BorderStyle     =   0  'None
      Height          =   435
      Left            =   0
      ScaleHeight     =   435
      ScaleWidth      =   7320
      TabIndex        =   0
      Top             =   0
      Width           =   7320
      Begin VB.CommandButton cmdShowToolWin 
         Caption         =   "&Show Tool Win"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   60
         TabIndex        =   1
         Top             =   0
         Width           =   1215
      End
   End
   Begin VB.Menu mnuFileTOP 
      Caption         =   "&File"
      Begin VB.Menu mnuFile 
         Caption         =   "&New"
         Index           =   0
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuFile 
         Caption         =   "-"
         Index           =   1
      End
      Begin VB.Menu mnuFile 
         Caption         =   "E&xit"
         Index           =   2
      End
   End
   Begin VB.Menu mnuHelpTOP 
      Caption         =   "&Help"
      Begin VB.Menu mnuHelp 
         Caption         =   "&About..."
         Index           =   0
      End
   End
End
Attribute VB_Name = "mfrmMDITest"
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
'
 -------------------------------------------------------------------------------
-------

Dim c As New cActiveTitleBar

Private Sub cmdShowToolWin_Click()
   Dim fT As New frmToolWindow
   fT.ParentForm = Me
   fT.Show , Me
End Sub

Private Sub MDIForm_Load()
   c.Attach Me.hWnd
   mnuFile_Click 0
End Sub


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

Private Sub mnuHelp_Click(Index As Integer)
   Select Case Index
   Case 0
      frmAbout.Show vbModal, Me
   End Select
End Sub