Visual Basic

Public Module Main<br />
<br />
Public Sub Main()<br />
Messagebox.show("Good morning " & System.Environment.UserName.ToString<br />
End Sub 

Dim d1() As Integer = {1, 2, 3}
Dim d2() As Integer = {4, 5, 6}
Dim d3(5) As Integer
Array.Copy(d1, d3, 3)
d2.CopyTo(d3, 3)

Dim d1() As Integer = {1, 2, 3}
Dim d2() As Integer = {4, 5, 6}
Dim d3 As List(Of Integer)
d3.AddRange(d1)
d3.AddRange(d2)