Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = "你好"
If Label1.Top > 0 Then
Label1.Top = Label1.Top - 4
ElseIf Label1.Height < Me.Height Then
Label1.Top = Label1.Top + 4
ElseIf Label1.Top = Label1.Top + 4 Then
Label1.Top = Label1.Top - 4
End If

Dim kuang As System.Drawing.Graphics
Dim pen1 As New System.Drawing.Pen(System.Drawing.Color.Green)
Me.Refresh()
Dim n As Integer
Dim x, y
kuang = Me.CreateGraphics
For n = 1 To 10
x = (Rnd() * 330)
y = (Rnd() * 290)
kuang.DrawEllipse(pen1, x, y, 10, 10)
Next n
End Sub


我想上下反复移动 但是移到上面就移不下来了
If Label1.Top > 0 Then
Label1.Top = Label1.Top - 4
ElseIf Label1.Height < Me.Height Then
Label1.Top = Label1.Top + 4
ElseIf Label1.Top = Label1.Top + 4 Then
Label1.Top = Label1.Top - 4
End If
我想 应该是这段代码出错了
知道的帮帮我

谁帮帮我啊

Label1.Text = "你好"
If Label1.Top > -Label1.Height Then
Label1.Top = Label1.Top - 4
Else
Label1.Top = Me.Height - Label1.Height
我这么改了一下
你看看!!

这样还不可以啊 这样只可以向上移动啊
不能向下移动
If Label1.Top > 0 Then
Label1.Top = Label1.Top - 4
ElseIf Label1.Height < Me.Height Then 到顶端的时候
Label1.Top = Label1.Top + 4 label1向下移动
ElseIf Label1.Top = Label1.Top + 4 Then 到了底部的时候
Label1.Top = Label1.Top - 4 再想上移动

我想作成这种效果

Dim direction As Boolean

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If direction Then
If Label1.Top <= 0 Then
direction = False
Else
Label1.Top -= 10
End If
Else
If Label1.Top >= (Me.Height - Label1.Height) Then
direction = True
Else
Label1.Top += 10
End If
End If
End Sub