Sub Activity__Create (Firstime as Boolean)
Dim OtherClass1 As OtherClass
Dim EdiText01 As EditText: EdiText01.Initialize("")
Dim EdiText02 As EditText: EdiText02.Initialize("")
Dim EdiText03 As EditText: EdiText03.Initialize("")
Dim EdiText04 As EditText: EdiText04.Initialize("")
EdiText01.text = " text1"
EdiText02.text = " text2"
EdiText03.text = " text3"
EdiText04.text = " text4"
Dim ed() As EditText = Array As Object(EdiText01, EdiText02, EdiText03, EdiText04)
OtherClass1.Initialize(Activity, ed)
End Sub