VB中自动打开新窗体

如果只要的是一个窗体打开后30秒自动打开另一个窗体而不做其他任何操作的话,也可以这样写:
首先必须至少有Form1、Form2、Timer，这三个控件。
在控件属性窗中设置 Timer1的interval 为1000（即为1秒响应1次，也可以设置为30000但后面代码中要将 t=30 改为 t=1，反正interval的值要乘以t必须等于30000），当然这个属性也可以在运行时通过代码实现。
在Form1的代码里添加如下代码：

Dim t As Integer
Private Sub Timer1_Timer()
t = t + 1
If t = 30 Then
form2.Show
'如果还要隐藏第一个窗口则还要添加：Form1.Hide 或者Me.hide
End If
End Sub

'如果没有在控件属性中设置timer1的interval 则要通过以下代码实现
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

如果还有其它的问题也可以给我发邮件:yixianjushi@tom.com QQ:182404099

呵呵 这个不难的~~
'两个form，timer放在form1中，单击form1后30秒打开form2。
'以下代码均在form1中
Private Sub Form_Click()
Timer1.Interval = 30000
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
'如果这时要隐藏form1，可以加一句form1.hide
Form2.Show
Timer1.Enabled = False
E