关于FORM的显示？

Question

在Form_load()事件中加入代码:
dim start as long
start=timer
do while timer<start+5
    doevents
loop
form2.show    'form2即为下一个Form
unload me

Answer 1

用一个TIMER控件,间隔5000
sub form_load()
  timer1.enable=true
end subsub timer1_time()
  unload form1
  form2.show
  timer1.enable=false
end sub

Answer 2

我也是刚学。你先试一下吧。先作一个form1。在form1中加一个timer1的控件
然后在timer1的属性中把imtervalr的数字0改为5000
　最后加入这样一句话就可以了：
Private Sub Timer1_Timer()
    If Timer1.Interval = 5000 Then
    Form1.Visible = False
    End If
End Sub
最后就是点击F5.
我想应该没有问题。肯定有别的方法但我只会这种。
我只会一些控件，我也只能帮到这了。
有什么更好的方法也通知我一下。谢谢！
希望大家共同进步。好运未来！

Answer 3

用静态声明变量和时钟控件，下面的代码可以实现启动小窗体的效果
Private Sub Timer1_Timer()
    Static i As Integer
    i = i + 1
    If i > 5 Then
        Load Form2
        Form2.Show
        form1.SetFocus
    End If
    If i > 3 Then
        Unload form1
        Exit Sub
    End If
End Sub

Answer 4

timerr1.interval=5000
form1.show
timer1_timer:
form1.hide
form2.showend sub
这样就可以了！！！

Answer 5

用timer也可实现，不过建议最好使用Limino提供的方法