Private Sub Command1_Click()
Font.Size = 70
Dim arr(5) As Integer
For i = 1 To 5
arr(i) = i
Next
For Each t In arr
Print t
Next
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Command1_Click()
Font.Size = 70
Dim arr(5) As Integer
For i = 1 To 5
arr(i) = i
Next
For Each t In arr
Print t
Next
End Sub
Private Sub Text1_Change()
End Sub