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

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

Private iHandleTable As HANDLETABLE

Public Sub CopyToHANDLETABLE(ByVal lpHandleTable As Long)
    If lpHandleTable = 0 Then RaiseError 5, "dwHandleTable"
    agCopyData iHandleTable, ByVal lpHandleTable, Len(iHandleTable)
End Sub

#If Win32 Then
Public Property Get ObjectHandle(i As Long) As Long
    ObjectHandle = CLng(iHandleTable.ObjectHandle(i))
End Property
#Else
Public Property Get ObjectHandle() As String
    ObjectHandle = iHandleTable.ObjectHandle
End Property
#End If

#If Win32 Then
Public Property Let ObjectHandle(i As Long, vNewValue As Long)
    iHandleTable.ObjectHandle(i) = vNewValue
End Property
#Else
Public Property Let ObjectHandle(vNewValue As String)
    iHandleTable.ObjectHandle = vNewValue
End Property
#End If

