【隐藏窗口】只要在启动窗口代码的合适地方加入“Me.Hide”或将其Visible设置为False即可【弹出窗口】首先要在启动窗口上放置一个Timer控件，设置其Interval属性为需要的时间。在Timer控件的Timer事件中添加MsgBox（或者是XXX.Show）如果超过65秒，就可以将Timer的Interval属性设置为60000（根据具体情况设定），再设置一个变量，每次Timer事件发生就将其加1，加到一定数量再执行）代码类似于下面(30分钟)：Dim i As IntegerPrivate Sub Form_Load()
Timer1.Interval = 60000End SubPriva...
Private Sub Form_Load()Form1.Visible = False'设置自身不可见Timer1.Interval = 1
Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Select Case Time'按时间选择...
