怎样才能实现模式窗体的自动关闭

Question

我有两个窗体，都是模式打开的。我想在form1里打开form2，过段时间form2自动关闭。这要怎么才能实现啊

Answer 1

加入一个timer控件就行了，
'form1  中的按钮代码
Private Sub Command1_Click()
        Form2.Show
　　　　Timer1.Interval = 2000 '2s后关闭
        Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
        Unload Form2
End Sub

Answer 2

在FORM2中加一个定时器TIMER1.
Private Sub Form_Load()
    Timer1.Interval = 10000'十秒钟后关闭
end subPrivate Sub Timer1_Timer()
    unload me
END SUB