Print #1, Hjælp

Hej gutter

jeg har 2 label med array 0 til 2

altså

label1(0).caption = "1"
label1(1).caption = ""
label1(2).caption = ""
label2(0).caption = ""
label2(1).caption = "x"
label2(2).caption = ""

og jeg vil gerne printe dem ud i samme linge i en tekstfil

Eks.
sådan

| 1 | x |

ikke sådan

| 1 |
| x |

er nået til

Dim i As Integer

Open Dialog1.Filename For Output As #1

Print #1, Label4.Caption

For i = 0 To 38

If Label1(i) & Label3(i) > "" Then

Print #1, "| " & Label1(i) & " | `" & Label3(i) & " |"

End If

Next i

Close #1

resultat

1
x

hmm

er der nogen der kan hjælpe mig !!!

på forhånd tak

M.V.H.
Jens Hinrichsen