创建标准exe 粘贴下面代码就可以了
Private Sub Command1_Click()
Text1.Visible = True
End Sub
Private Sub Command2_Click()
Text1.Visible = False
End Sub
Private Sub Form_Load()
Command1.Caption = "显示文本框"
Command2.Caption = "隐藏文本框"
End Sub
Private Sub Command1_Click()
Text1.Visible = False '隐藏文本框
End Sub
Private Sub Command2_Click()
Text1.Text = "vB程序设计" '设置文本框内容
Text1.Visible = True '显示文本框
End Sub