Dim flag As Boolean
Private Sub Form_Load()
flag = True
End Sub
Private Sub Timer1_Timer()
If flag = True Then
Label1.Left = Label1.Left + 50
If Label1.Left > Me.Width - Label1.Width Then flag = False
Else
Label1.Left = Label1.Left - 50
If Label1.Left < 0 Then flag = True
End If
End Sub
æèäºçº§VBè¯çæ¶åæ½ä¸äºè¿éé¢ å»å»
温馨提示:答案为网友推荐,仅供参考