vb小问题，谢谢。为什么时钟控件中s=0怎样使初始值s=1

Private Sub Form_Load()
Dim s As Integer
s = 1
End Sub

Private Sub Timer1_Timer()
If Me.Left < 0 Or Me.Left > Screen.Width - Me.Width Then s = -1 * s
Me.Left = Me.Left + 100 * s
End Sub

将dim s as integer换成private s as integer写在form_load的上面，也就是外面，作为全局变量。

vb是可以省略变量声明的
所以，你的Timer1_Timer() 里面的s是局部变量，跟Form_Load()里面的s毛关系没有。