چسباندن دو ارایه از نو ع بایت به همدیگر

[سپهر-111]

سلام دوستان

چطور میشه دوتا ارایه از نوع بایت را به همدیگه چسبوند؟
مثلا

DIM A AS BYTE(3)
DIM B AS BYTE(3 TO 24)

باتشکر

[arenaw]

Dim C() as byte
n = ubound(A) + ubound(B)
redim c(n)

for i = lbound(A) to Ubound(A) -1
C(i) = A(i)
Next
n = i + 1
for i = lbound(B) + n to Ubound(B) -1 + n
C(i) = A(i)
Next





ویبی نصب ندارم
فک کنم یه سری +1 یا -1 کم و زیاد باشه وگرنه کلی درسته