VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "dwSize"
Attribute VB_Creatable = True
Attribute VB_Exposed = True
Option Explicit

' Class dwSize
' Desaware API Class library
' Copyright (c) 1996 by Desaware Inc.
' All rights reserved


Private InternalSize As SIZE

Private Sub Class_Initialize()
    cx = 0
    cy = 0
End Sub

Public Property Get cx() As Long
    cx = InternalSize.cx
End Property

Public Property Let cx(vNewValue As Long)
    InternalSize.cx = vNewValue
End Property

Public Property Get cy() As Long
    cy = InternalSize.cy
End Property

Public Property Let cy(vNewValue As Long)
    InternalSize.cy = vNewValue
End Property
