Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Label1 As Label
Private Label2 As Label
Private Label3 As Label
Private Label4 As Label
Private Label5 As Label
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
Label1.Text = "One"
Label2.Text = "Two"
Label3.Text = "Three"
Label4.Text = "Four"
Label5.Text = "Five"
MainForm.Show
Sleep(1000)
Dim LabelArray() As Label = Array As Label(Label1, Label2, Label3, Label4, Label5)
For I = 1 To LabelArray.Length - 1
LabelArray(I).Left = LabelArray(0).Left
Next
Sleep(1000)
For I = 0 To LabelArray.Length - 1
LabelArray(I).Alignment = "CENTER_LEFT"
Next
Sleep(1000)
Dim GermanNumberWord() As String = Array As String("Ein", "Zwei", "Drei", "Vier", "Fünf")
For I = 0 To LabelArray.Length - 1
LabelArray(I).Text = GermanNumberWord(I)
Next
End Sub