VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Application"
Attribute VB_Creatable = True
Attribute VB_Exposed = True
Option Explicit
Public NewVar As Collection

' Application ActiveWindow property (read only)
Public Property Get ActiveWindow() As Window
    Set ActiveWindow = modDeclares.gActiveWindow
End Property

Public Property Get Name() As String
    Name = App.Title
End Property


' Application Windows method.
Public Function Windows() As Object
    ' Return the Windows variable from the
    ' modDeclares module.
    Set Windows = modDeclares.Windows
End Function

' Application object Application property
Public Property Get Application()
    Set Application = Me
End Property

#If Win16 Then
Public Property Get hWnd() As Integer
#Else
Public Property Get hWnd() As Long
#End If
    hWnd = mdiApplication.hWnd
End Property
' Application object Parent property
Public Property Get Parent()
    Set Parent = Me
End Property
    
' Application window height property (read/write).
Public Property Let Height(iVal As Integer)
    mdiApplication.Height = iVal
End Property

Public Property Get Height() As Integer
    Height = mdiApplication.Height
End Property

' Application window width property (read/write).
Public Property Let Width(iVal As Integer)
    mdiApplication.Width = iVal
End Property

Public Property Get Width() As Integer
    Width = mdiApplication.Width
End Property

' Application window top property (read/write).
Public Property Let Top(iVal As Integer)
    mdiApplication.Top = iVal
End Property

Public Property Get Top() As Integer
    Top = mdiApplication.Top
End Property

' Application window Left property (read/write).
Public Property Let Left(iVal As Integer)
    mdiApplication.Left = iVal
End Property

Public Property Get Left() As Integer
    Left = mdiApplication.Left
End Property

' Selection method.
Public Function Selection() As Collection
    'Set Selection = modDeclares.Selection
End Function
