The following example demonstrates how to create and pass array parameters in a single script that tests the Notepad application.
Public Module Main
Dim _desktop As Desktop = Agent.Desktop
Public Sub Main(args As IDictionary(Of String, Object))
Dim A1() As Integer = CType(args("Arr1"), Integer())
With _desktop.Window("@caption='Untitled - Notepad'")
.TextField().TypeKeys("Array Numbers<Enter>")
For Each num As Integer In A1
.TextField().TypeKeys(num)
.TextField().TypeKeys("<Enter>")
Next
.TextField().TypeKeys("<Enter>")
End With
End Sub
Public Sub Main()
Dim args As New Dictionary(Of String, Object)
args("Arr1") = New Integer() {1,2,3,4,5}
Main(args)
End Sub
End Module