Guest User

Untitled

a guest
Jan 16th, 2019
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. Public Class Form1
  2. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  3.  
  4. Dim n As New List(Of String)
  5.  
  6. n.Add("test0")
  7.  
  8. pAlterList(n)
  9.  
  10. Debug.Assert(n(0) = "test0")
  11.  
  12. End Sub
  13.  
  14. Private Sub pAlterList(ByVal u As List(Of String))
  15.  
  16. u(0) = u(0) & "somechange"
  17.  
  18. End Sub
  19.  
  20. End Class
Add Comment
Please, Sign In to add comment