各位大佬，请问一下我怎么写代码才可以像书本里面这个位置这样显示？点击后面的总计之前把计算输出的结果也顶替掉了，反过来也有这种情况。也没有做出像书本上这样的显示。

要向文本框中追加内容，应该这样写：
Text6.Text = Text6.Text & 新增内容

换行 vbcrlf

这个就是新的问题截图：
下面是我自己写的代码：
Private Sub Command1_Click()
Text1.Text = Text1.Text
Text2.Text = Val(Text2.Text)
Text3.Text = Val(Text3.Text)
Text4.Text = Val(Text4.Text)
Text5.Text = Text2.Text * Text3.Text * Text4.Text '为计算的总计金额
Text6.Text = Text6.Text & Label1.Caption & Space(3) & Label2.Caption & Space(3) & Label3.Caption & Space(3) & Label4.Caption & Space(3) & Label5.Caption & Space(3) & vbCrLf & _
Text1.Text & Space(3) & Text2.Text & Space(3) & Text3.Text & Space(3) & Text4.Text & Space(3) & Text5.Text & Space(3) & vbCrLf
End Sub
Private Sub Command2_Click()
A = A + Val(Text5.Text) '为计算的总计金额。但是仅计算出了最后一次的商品总金额值。
Text6.Text = Text6.Text & "总金额" & Space(3) & A
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
Private Sub Command4_Click()
Text6.Text = ""
End Sub
Private Sub Form_Load()
Label1.Caption = "商品名"
Label2.Caption = "数量"
Label3.Caption = "单价"
Label4.Caption = "折扣"
Label5.Caption = "金额"
Label6.Caption = "商品费用清单"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Command1.Caption = "计算"
Command2.Caption = "总计"
Command3.Caption = "清除"
Command4.Caption = "全部清空"
Command1.TabIndex = 0
Dim A As Single
A = 0
End Sub
Private Sub HScroll1_Change()
HScroll1.Max = 100
HScroll1.LargeChange = 5
HScroll1.SmallChange = 2
End Sub
Private Sub VScroll1_Change()
VScroll1.Max = 100
VScroll1.LargeChange = 5
VScroll1.SmallChange = 2
End Sub

多个数据，应该用数组记下来
type 类型
商品名 as string *4
数量 as integer
单价 as single
折扣 as single
金额 as single
end type
dim a(10) as 类型