哪位VB高手可以编写以下的题目?

来源：百度知道 编辑：UC知道 时间：2024/05/23 19:00:20
要求计时器每跳动一次,窗体从电脑屏幕的左边移动到右边(是一点一点移的,比如,a=a+100,Form1.Left = A这样的.)等到窗体移动到屏幕右边,即(Form1.Left = Screen.Width - Form1.Width)时,再一点点从右边回到左边.

Option Explicit

Dim MoveFlag As Boolean

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 55
End Sub

Private Sub Timer1_Timer()
If MoveFlag Then
Me.Left = Me.Left + 100
If Screen.Width - Me.Left <= Me.Width Then
MoveFlag = False
End If
Else
Me.Left = Me.Left - 100
If Me.Left <= 0 Then
MoveFlag = True
End If
End If

End Sub

'你看这个吧!!!!!!!!!!!!!!