vb6.0求助，两个Text1,Text2怎么分别输出Picture上方和下方？

Question

窗体上分别有Text1和Text2。

问题是怎么把Text1的内容输出到Picture的上方，

而Text2内容则输出到Picture的下方？

Answer 1

Private Sub Command1_Click()
Dim a() As String, b() As String, i, j As Integer
Text3 = ""
a = Split(Text1, vbCrLf)
b = Split(Text2, vbCrLf)
For i = 0 To UBound(a)
For j = 0 To UBound(b)
If a(i) <> "" And b(j) <> "" Then Text3 = Text3 & a(i) & b(j) & vbCrLf
Next
Next
End Sub