Function Copy_Array(Of T)(ByVal sourceArray() As T, ByRef destinationArray() As _
  T, ByVal intLength As Integer ) As Boolean
 
'Am Anfang leer machen
destinationArray = Nothing
 
 Try
   Array.Copy(sourceArray, destinationArray, intLength)
 Catch
   goto errExit
     '--->>
     '--->>
 End Try
 
 return True
 
errExit:
 return False
End Function