Dim hoge As New List(Of String) hoge.Add("hoge") hoge.Add("fuga") MossaMossaAA(hoge) Console.WriteLine(hoge.Count) Private Sub MossaMossaAA(ByVal hoge As List(Of String)) hoge.Add("piyo") End Sub