Private Sub Command1_Click()
Dim a(20) As String
For i = 0 To 20
a(i) = Chr(i + 65) & Chr(i + 65)
Next
Load Text1(1)
Text1(1).Visible = True
Text1(1).Move 1000, 1000, 2000, 4000
Text1(1).Text = Join(a(), vbCrLf)
End Sub
Private Sub Command1_Click()
Dim a(20) As String
For i = 0 To 20
a(i) = Chr(i + 65) & Chr(i + 65)
Next
Load Text1(1)
Text1(1).Visible = True
Text1(1).Move 1000, 1000, 2000, 4000
Text1(1).Text = Join(a(), vbCrLf)
End Sub