VB如何制作限制窗口在指定时间后可以关闭

创建一个timer1控件，interval属性设置为1000（1秒）
然后输入：

Dim Ctime As Long
Private Sub Timer1_Timer()

If Ctime >= 10 Then'这里的10可以调
Timer1.Enabled = False'为了保险，让时间控件停止
Unload Me
End If
Ctime = Ctime + 1
End Sub

可以写在timer事件中
等到了一定的时间
直接把对应的窗体unload即可

用定时器。