VERSION 4.00
Begin VB.Form frmWindow 
   Caption         =   "Form1"
   ClientHeight    =   4236
   ClientLeft      =   1092
   ClientTop       =   1512
   ClientWidth     =   6720
   Height          =   4560
   Left            =   1044
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   4236
   ScaleWidth      =   6720
   Top             =   1236
   Width           =   6816
Attribute VB_Name = "frmWindow"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private mstrIndex As Integer
Public Property Get Index() As String
    Index = mstrIndex
End Property
Public Property Let Index(strIndex As String)
    mstrIndex = strIndex
End Property
' Register that this is the active window.
Private Sub Form_GotFocus()
    Set modDeclares.gActiveWindow = Windows.Item(Me.Index)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    ' If the user closes the form manually,
    ' be sure to remove it from the collection.
    If UnloadMode = vbFormControlMenu Then
        Windows.Remove Me.Caption
    End If
End Sub