Private Sub Command1_Click()
Timer1.Interval = 200
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
Call mymove

End Sub

Private Sub Form_Load()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Call mymove

End Sub
Sub mymove()
Label1.Move Label1.Left, Label1.Top + 50
If Label1.Top > Form1.Height Then Label1.Top = 0
End Sub
想改成水平移动
他这是自上而下的~~新手求助~~

sub mymove()
label1.move label.left+50
if label1.left+label1.width>=form1.width then label1.left=0
end sub

Sub mymove()
Label1.Move Val(Label1.Left) + 50
 
If Label1.Left + Label1.Width >= Form1.Width Then Label1.Left = 0
End Sub