Private Sub Cmd2_Click() Lb1.Caption = "为了你开心,“不开心”按钮没用O(∩_∩)O哈哈哈~" Cmd1.Visible = False Cmd1.Caption = "" Cmd2.Caption = "继续" End Sub