    Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles btnCalc.Click
      Dim i As Integer

      txtList.Clear()
      For i = 0 To 10
        MyList(i) = i     ' Wpisujemy po prostu kilka wartości
      Next i

      MyCopy = MyList     ' Magia!

      For i = 0 To 10
        txtList.Text &= MyCopy(i) & vbCrLf
      Next
      btnShow.Visible = True

    End Sub
