Dim SLB As SLByteArrayBuffer
SLB.Initialize(2)
Dim Content() As Byte = SLB.ToByteArray
Log("BAB Len " & SLB.length & " Buffer Len " & SLB.Buffer.Length & " Capacity " & SLB.Capacity & " Content Len " & Content.Length)
SLB.AppendByte(Array As Byte(0xF0,0xF0,0xF0,0xF0),0,4)
Content = SLB.ToByteArray
Log("BAB Len " & SLB.length & " Buffer Len " & SLB.Buffer.Length & " Capacity " & SLB.Capacity & " Content Len " & Content.Length)
SLB.AppendByte(Array As Byte(0xF0,0xF0),0,2)
Content = SLB.ToByteArray
Log("BAB Len " & SLB.length & " Buffer Len " & SLB.Buffer.Length & " Capacity " & SLB.Capacity & " Content Len " & Content.Length)