Public Property Get PropName(X As Integer, Y As Integer) As String End Property Public Property Let PropName(X As Integer, Y As Integer, ByVal newPropName As String) End Property