请问怎样去调用这个闪窗??(我用的是vb.net+sql2000)

爱上思考,爱上编程,爱上.net!
Dim int As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If int = 0 Then
Me.Visible = True
int = 1
ElseIf int = 1 Then
Me.Visible = False
int = 2
ElseIf int = 2 Then
Me.Visible = True
int = 3
ElseIf int = 3 Then
Me.Visible = False
int = 4
ElseIf int = 4 Then
Me.Visible = True
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1000 '时间间隔自定义
End Sub
Dim int As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
dim frm as new from2
If int = 0 Then
Me.Visible = True
frm.Visible = False
int = 1
ElseIf int = 1 Then
Me.Visible = False
frm.Visible = Ture
int = 2
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1000 '时间间隔自定义
End Sub
经过更改后的能运行的答案
开始的可以无限循环!~~~
[此贴子已经被作者于2006-4-27 19:33:27编辑过]