Question

vb 窗体移动方向（由上往下，左往右）麻烦指导我谢谢

Private Sub Form_Load()
Label1.Top = Form1.Height '启动定时器
End Sub

Private Sub Timer1_Timer()
If Label1.Top >= -Label1.Top Then '使标签由下往上移动
Label1.Top = Label1.Top - 200 'Label1对象的top属性在原来的基础上减少200
Else
Label1.Top = Form1.Height
End If
End Sub
（由上往下;左往右两种移动怎么改）

Answer 1

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width
End If
End Sub

追问

你好 我初学VB 想再问个问题 这里的>=是不是超出等于等意思 -号呢？