直接在该按钮的回叫函数加close(GUI1);close(GUI2);...GUI1等是你子GUI的名字。Sub kk() UserForm1.Show 0 stTm = Timer Do While Timer < stTm + 30 DoEvents Loop UserForm1.Hide End Sub。
pause(n);%暂停n秒close(gcf);%关闭