Displaying and saving data

[Mark Sreeves]

Is this the sort of thing you want?

I've used a textbox here. If you do, make sure multiline is "true"

Option Explicit
Dim arrayOfData(10) As String

Private Sub Command1_Click()
Dim halfway As Integer
Dim i As Integer
Dim j As Integer
halfway = UBound(arrayOfData()) \ 2

For i = 0 To halfway - 1
  j = i + halfway
  Text1.Text = Text1.Text & i & " " & arrayOfData(i) & vbTab & j & " " & arrayOfData(j) & vbCrLf
Next i


End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
arrayOfData(i) = "xxx"
Next i


End Sub