可能你需要的是这个效果。
Private Sub Command1_Click()Frame1.Visible = TrueEnd SubPrivate Sub Command2_Click()Frame1.Visible = FalseEnd SubPrivate Sub Form_Load()Text1.Text = "ABCDE"Label1.Caption = "ABCDE"Frame1.Visible = FalseEnd Sub