Dim t1 As Integer

Private Sub Form_Load() t1 = 0 End Sub

Private Sub Timer1_Timer() t1 = t1 + 1 If t1 < 100 Then current = t1 Mod 8 FileName$ = VB.App.Path& & "\111" & &current& & ".jpg" 它说我语法错误,哪位朋友能看看错在爱哪里呢 Image1.Picture = LoadPicture(FileName$) Else End If End Sub

[QUOTE] 改成
FileName$ = VB.App.Path &amp; "\111" &amp; current &amp; ".jpg"

[/QUOTE]
多谢大家了,用上面的语句已经解决问题了,谢谢各位了