VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "kludge"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private Val As Variant
Public Property Get Self(v)
Attribute Self.VB_UserMemId = 0
    Val = v
    Set Self = Me
End Property
Public Property Get Value()
    Value = Val
End Property
