设置一个timer控件,将时间设置为1000毫秒,即1秒
执行代码中设置加入
[code:a75ded3817]If Form1.Visible =True Then
    Form2.Visible =True
    Form1.Visible = False
    Exit Sub
End If
If Form2.Visible =True Then
    Form3.Visible =True
    Form2.Visible = False
    Exit Sub
End If
If Form3.Visible =True Then
    Form4.Visible =True
    Form3.Visible = False
    Exit Sub
End If
If Form4.Visible =True Then
    Form5.Visible =True
    Form4.Visible = False
    Exit Sub
End If
If Form5.Visible =True Then
    Form1.Visible =True
    Form5.Visible = False
    Exit Sub
End If[/code:a75ded3817]