vb小程序 显示问题

程序如下
Private Sub Command1_Click()
a1 = Text1.Text
b1 = Text2.Text
If (a1 = 25 And b1 <= 39) Or (a1 = 26 And b1 <= 26) Or (a1 = 27 And b1 <= 13) Or (a1 = 28 And b1 = 0) Then
Picture1.Print "120"
Else
Picture1.Print "错误"

End If

End Sub

Private Sub Command2_Click()
Var Form1 = New List

End Sub

Private Sub Form_Load()
Dim a1 As Integer
Dim b1 As Integer
Dim c1 As Integer

End Sub
在文本框上显示文字，可按一下按钮显示就另起一行显示，如何设置成按一下更新一次，不换位置（只在一个位置显示）

vb程序 小问题 vb 小程序的问题 vb程序小程序 我VB程序的一个小问题 vb的一个小程序问题。 VB小程序的一些问题 VB高手还有吗？ VB小程序的问题求救 VB程序显示 求VB小程序 求教：vb小程序