Mirage Source

Private account_Buffer() As Byte

Public Property Get Buffer() As Byte
    Buffer = account_Buffer()
End Property

Public Property Let Buffer(ByVal vData As Byte)
    account_Buffer() = vData
End Property

Public Property Get Buffer(ByVal iI As Long) As Byte
If iI >= 0 And iI <= UBound(account_Buffer) Then
    Buffer = account_Buffer(iI)
End If
End Property

Public Property Let Buffer(ByVal iI As Long, ByVal vData As Byte)
If iI >= 0 And iI <= UBound(account_Buffer) Then
    account_Buffer(iI) = vData
End If
End Property

Option Explicit
Private account_Buffer() As Byte

Private Sub Class_Initialize()
    ReDim account_Buffer(1 To 10) As Byte
   
    Dim i As Long
    For i = 1 To 10
        account_Buffer(i) = i
    Next i
End Sub

Public Property Get Buffer() As Byte()
    Buffer = account_Buffer
End Property

Public Property Get Item(ByVal index As Integer) As Byte
    Buffer = account_Buffer(index)
End Property

Public Property Let Item(ByVal index As Integer, ByVal value As Byte)
    account_Buffer(index) = value
End Property

Public Property Let Buffer(ByRef vData() As Byte)
    account_Buffer = vData
End Property

Private Sub Form_Load()
    Dim vari As Class1
    Set vari = New Class1
   
    Dim haha() As Byte
   
    vari.Item(1) = 2
   
    haha = vari.Buffer
   
    Dim i As Long
   
    For i = 1 To 10
        MsgBox haha(i)
    Next i
End Sub