设置一个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]