求一个VB小程序的代码

代码如下：

Label来自1.Caption = "你好！请输入你的姓名"

Label2.ForeColor = vbRed

Label2.FontSize = 20

Label2.Caption = ""

Label2.Visibl360问答e = False

Command1.Caption = "确定"

Command2.Caption = "继续"

Command2.Visible = False

Command3.Caption = "结束"

Command3.Visible = False

Text1 = ""

End S但己酒营保片破ub

Private S来按父耐间上喜宣依按ub Command1_Click()

Label1.Visible = False

Label2.Caption = Text1.Text & "同学，你好！祝你学好VB程序设计"

Label2.Visible = True

Text1.Visible = False

Command1.Visible = False

Comman放苏解备厚妒错因d2.Visible = True

Command3.Visible = True

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text1.Visible = True

Text1.SetFocu含响促严文美确s

Label1.Visible = True

Label2.Visible = False

Command1.Visible = True

Command2.Visible = False

Command3.Visible = False

End Sub

Private Sub Command3_Click()

End

End Sub

标签：VB,小程序,代码