### Sub with String List as Parameter

`Sub with String List as Parameter various solutions:
Solution 1
`Sub AppStart (Form1 As Form, Args() As String)
...
MySub("A,B,C")
`Sub My(s As String)
Dim sl() As String = Regex.Split(",", s)
For i = 0 To sl.Length - 1
Log(sl(i))
Next
End Sub`
Solution 2
`Sub Process_Globals
Private MyList As List
...
End Sub`
`Sub AppStart (Form1 As Form, Args() As String)
...
MyList.Initialize
MyList.AddAll(Array As String("A", "B", "C"))
MySub(MyList)
...
End Sub`
`Sub My(l As List)
For i = 0 To l.Size - 1
Log(l.Get(i))
Next
End Sub`
Note
Previous For Next Loop can also be written as:
`Sub My(l as List)
For Each s as String In l
Log(s)
Next
End Sub`
``

Changed: , Category: Sub, File: T6C258M1870.htm, ID: 1870