Imports System
Public Class Example

    Public Shared Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)

        ' Creates and initializes a new integer array and a new Object array.
        Dim myIntArray() As Integer = {1, 2, 3, 4, 5}
        Dim myObjArray() As Object = {26, 27, 28, 29, 30}

        ' Prints the initial values of both arrays.
        outputBlock.Text &= String.Format("Initially,") & vbCrLf
        outputBlock.Text &= "integer array:"
        PrintValues(outputBlock, myIntArray)
        outputBlock.Text &= "Object array: "
        PrintValues(outputBlock, myObjArray)

        ' Copies the first two elements from the integer array to the Object array.
        Array.Copy(myIntArray, myObjArray, 2)

        ' Prints the values of the modified arrays.
        outputBlock.Text &= ControlChars.NewLine + "After copying the first two" _
           + " elements of the integer array to the Object array," & vbCrLf
        outputBlock.Text &= "integer array:"
        PrintValues(outputBlock, myIntArray)
        outputBlock.Text &= "Object array: "
        PrintValues(outputBlock, myObjArray)

        ' Copies the last two elements from the Object array to the integer array.
        Array.Copy(myObjArray, myObjArray.GetUpperBound(0) - 1, myIntArray, _
           myIntArray.GetUpperBound(0) - 1, 2)

        ' Prints the values of the modified arrays.
        outputBlock.Text &= ControlChars.NewLine + "After copying the last two" _
           + " elements of the Object array to the integer array," & vbCrLf
        outputBlock.Text &= "integer array:"
        PrintValues(outputBlock, myIntArray)
        outputBlock.Text &= "Object array: "
        PrintValues(outputBlock, myObjArray)
    End Sub

    Public Overloads Shared Sub PrintValues(ByVal outputBlock As System.Windows.Controls.TextBlock, ByVal myArr() As Object)
        Dim i As Object
        For Each i In myArr
            outputBlock.Text &= String.Format(ControlChars.Tab + "{0}", i)
        Next i
        outputBlock.Text &= vbCrLf
    End Sub

    Public Overloads Shared Sub PrintValues(ByVal outputBlock As System.Windows.Controls.TextBlock, ByVal myArr() As Integer)
        Dim i As Integer
        For Each i In myArr
            outputBlock.Text &= String.Format(ControlChars.Tab + "{0}", i)
        Next i
        outputBlock.Text &= vbCrLf
    End Sub
End Class

' This code produces the following output.
' 
' Initially,
' integer array:  1       2       3       4       5
' Object array:   26      27      28      29      30
' 
' After copying the first two elements of the integer array to the Object array,
' integer array:  1       2       3       4       5
' Object array:   1       2       28      29      30
' 
' After copying the last two elements of the Object array to the integer array,
' integer array:  1       2       3       29      30
' Object array:   1       2       28      29      30

Public Class Example2

    Public Shared Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)

        ' Creates and initializes a new three-dimensional Array of
        ' type Int32.
        Dim myArr As Array = Array.CreateInstance(GetType(Int32), 2, 3, 4)
        Dim i As Integer
        For i = myArr.GetLowerBound(0) To myArr.GetUpperBound(0)
            Dim j As Integer
            For j = myArr.GetLowerBound(1) To myArr.GetUpperBound(1)
                Dim k As Integer
                For k = myArr.GetLowerBound(2) To myArr.GetUpperBound(2)
                    myArr.SetValue(i * 100 + j * 10 + k, i, j, k)
                Next k
            Next j
        Next i ' Displays the properties of the Array.
        outputBlock.Text &= String.Format("The Array has {0} dimension(s) & vbCrLf and a " _
           + "total of {1} elements.", myArr.Rank, myArr.Length)
        outputBlock.Text &= ControlChars.Tab + "Length" + ControlChars.Tab _
           + "Lower" + ControlChars.Tab + "Upper" & vbCrLf
        For i = 0 To myArr.Rank - 1
            outputBlock.Text &= String.Format("{0}:" + ControlChars.Tab + "{1}", i, _
               myArr.GetLength(i))
            outputBlock.Text &= String.Format(ControlChars.Tab + "{0}" + ControlChars.Tab _
               + "{1}", myArr.GetLowerBound(i), myArr.GetUpperBound(i)) & vbCrLf
        Next i

        ' Displays the contents of the Array.
        outputBlock.Text &= "The Array contains the following values:" & vbCrLf
        PrintValues(outputBlock, myArr)
    End Sub

    Public Shared Sub PrintValues(ByVal outputBlock As System.Windows.Controls.TextBlock, ByVal myArr As Array)
        Dim myEnumerator As System.Collections.IEnumerator = _
           myArr.GetEnumerator()
        Dim i As Integer = 0
        Dim cols As Integer = myArr.GetLength(myArr.Rank - 1)
        While myEnumerator.MoveNext()
            If i < cols Then
                i += 1
            Else
                outputBlock.Text &= vbCrLf
                i = 1
            End If
            outputBlock.Text &= String.Format(ControlChars.Tab + "{0}", myEnumerator.Current)
        End While
        outputBlock.Text &= vbCrLf
    End Sub
End Class

' This code produces the following output.
' 
' The Array has 3 dimension(s) and a total of 24 elements.
'     Length    Lower    Upper
' 0:    2    0    1
' 1:    3    0    2
' 2:    4    0    3
' The Array contains the following values:
'     0    1    2    3
'     10    11    12    13
'     20    21    22    23
'     100    101    102    103
'     110    111    112    113
'     120    121    122    123