VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "PrvClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private PintegerProperty As Integer
Private PstringProperty As String



Public Property Get integerProperty() As Integer

    integerProperty = PintegerProperty
    
End Property

Public Property Let integerProperty(ByVal NewValue As Integer)
On Error GoTo IntError

    If NewValue < 0 Then
        MsgBox "integerProperty can't be negative"
        Exit Property
    End If
    PintegerProperty = NewValue
    Exit Property

IntError:
    MsgBox "There was an error in assigning the value " & NewValue & " to the integerProperty property"
    
End Property

Public Property Get stringProperty() As String

    stringProperty = PstringProperty
    
End Property

Public Property Let stringProperty(ByVal NewValue As String)

    PstringProperty = NewValue
    
End Property

