private sub command1_click()text1.Visible=falseend subprivate sub command2_click()text1.Visible=truetext1.text = "VB程序"end sub