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

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

#If Win32 Then
Private iEnhMetaRecord As ENHMETARECORD

Public Sub CopyToENHMETARECORD(ByVal lpEnhMetaRecord As Long)
    If lpEnhMetaRecord = 0 Then RaiseError 5, "dwEnhMetaRecord"
    agCopyData iEnhMetaRecord, ByVal lpEnhMetaRecord, Len(iEnhMetaRecord)
End Sub

Public Property Get iType() As Long
    iType = iEnhMetaRecord.iType
End Property

Public Property Let iType(vNewValue As Long)
    iEnhMetaRecord.iType = vNewValue
End Property

Public Property Get nSize() As Long
    nSize = iEnhMetaRecord.nSize
End Property

Public Property Let nSize(vNewValue As Long)
    iEnhMetaRecord.nSize = vNewValue
End Property
Public Property Get dParm(i As Long) As Long
    dParm = iEnhMetaRecord.dParm(i)
End Property

Public Property Let dParm(i As Long, vNewValue As Long)
    iEnhMetaRecord.dParm(i) = vNewValue
End Property

#End If ' this class only exists in Win32
