Private Sub Timer1_Timer()
If i = 0 Then
If z.Left < 5000 Then
z.Left = z.Left + 100
Else
i = 2
End If
End If
If i = 2 Then
If z.Left > 0 Then
z.Left = z.Left - 100
Else
i = 3
End If
End If
If i = 3 Then
i = 0
End If
End Sub
If i = 0 Then
If z.Left < 5000 Then
z.Left = z.Left + 100
Else
i = 2
End If
End If
If i = 2 Then
If z.Left > 0 Then
z.Left = z.Left - 100
Else
i = 3
End If
End If
If i = 3 Then
i = 0
End If
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货