Private Sub Command1_Click()
Dim s As String, R As Integer
s = String(100, "X")
R = MsgBox("multiline or not?", vbYesNo)
If R = vbYes Then
Text1.Visible = True
Text2.Visible = False
Text1.Text = s
ElseIf R = vbNo Then
Text1.Visible = False
Text2.Visible = True
Text2.Text = s
End If
End Sub
Private Sub Form_Load()
Text1.Move 0, 0, 3000, 2000
Text2.Move 0, 0, 3000, 2000
Text1.Visible = True
Text2.Visible = False
End Sub