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

  MyCopy(5) = 52443 ' Nadajemy nową wartość pewnemu elementowi kopii

  txtList.Clear()   ' Czyścimy poprzednio wyświetlane dane

  For i = 0 To 10   ' Teraz pokazujemy ORYGINALNĄ listę!
    txtList.Text &= MyList(i) & vbCrLf
  Next

End Sub
