以下是一个比较两个数组并将第二个数组中的唯一元素复制到第一个数组的VB.NET代码示例：

Sub Main()
    Dim arr1() As Integer = {1, 2, 3, 4, 5}
    Dim arr2() As Integer = {4, 5, 6, 7, 8}

    For Each num In arr2
        If Not arr1.Contains(num) Then
            Array.Resize(arr1, arr1.Length + 1)
            arr1(arr1.Length - 1) = num
        End If
    Next

    Console.WriteLine("合并后的数组:")
    For Each num In arr1
        Console.WriteLine(num)
    Next

    Console.ReadLine()
End Sub

运行这段代码，你将得到以下输出：

合并后的数组:
1
2
3
4
5
6
7
8

这段代码首先声明了两个数组arr1和arr2，其中arr1包含了一些元素，而arr2包含了一些唯一的元素。然后，通过使用For Each循环遍历arr2数组中的每个元素，检查它是否已经存在于arr1中。如果不存在，则使用Array.Resize方法扩展arr1数组的大小，并将该元素添加到arr1的末尾。最后，使用For Each循环遍历arr1，打印出合并后的数组的内容。