private Sub Merge(Array1() As Float, Array2() As Float) As Object
Private BC As ByteConverter
Dim FloatArray(Array1.Length + Array2.Length) As Float
BC.ArrayCopy(Array1,0,FloatArray,0,Array1.Length)
BC.ArrayCopy(Array2,0,FloatArray,Array1.Length,Array2.Length)
Return FloatArray
End Sub