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

' Class dwLogBrush
' Class for LOGBRUSH structure
' Desaware API Class library
' Copyright (c) 1996 by Desaware Inc.
' All rights reserved

Private iLogBrush As LOGBRUSH

Public Sub CopyToLOGBRUSH(ByVal lpLogBrush As Long)
    
    If lpLogBrush = 0 Then RaiseError 5, "dwLogBrush"
    agCopyData iLogBrush, ByVal lpLogBrush, Len(iLogBrush)
End Sub

Public Sub CopyFromLOGBRUSH(ByVal lpLogBrush As Long)
        
    If lpLogBrush = 0 Then RaiseError 5, "dwLogBrush"
    agCopyData ByVal lpLogBrush, iLogBrush, LenB(iLogBrush)
End Sub

Public Property Get lbStyle() As Long
    lbStyle = iLogBrush.lbStyle
End Property

Public Property Let lbStyle(vNewValue As Long)
    iLogBrush.lbStyle = vNewValue
End Property

Public Property Get lbColor() As Long
    lbColor = iLogBrush.lbColor
End Property

Public Property Let lbColor(vNewValue As Long)
    iLogBrush.lbColor = vNewValue
End Property

Public Property Get lbHatch() As Long
    lbHatch = iLogBrush.lbHatch
End Property

Public Property Let lbHatch(vNewValue As Long)
    iLogBrush.lbHatch = vNewValue
End Property
