深圳百达翡丽专柜:编译错误:块IF没有END IF

Private Sub Timer1_Timer()
If (flag - 3) = 0 Then
flag = 0
Else
If flag = 0 Then
Image4.Picture = Image1.Picture
Else
If flag = 1 Then
Image4.Picture = Image2.Picture
Else
If flag = 2 Then
Image4.Picture = Image3.Picture
End If
End If
End If
flag = flag + 1
End If
End Sub

Private Sub Timer1_Timer()
If (flag - 3) = 0 Then
flag = 0
Else
If flag = 0 Then
Image4.Picture = Image1.Picture
Else If flag = 1 Then
Image4.Picture = Image2.Picture
Else If flag = 2 Then
Image4.Picture = Image3.Picture
End If
flag = flag + 1
End If
End Sub

Private Sub Timer1_Timer()
If (flag - 3) = 0 Then
flag = 0
Else
If flag = 0 Then
Image4.Picture = Image1.Picture
Else
If flag = 1 Then
Image4.Picture = Image2.Picture
Else
If flag = 2 Then
Image4.Picture = Image3.Picture
End If
flag = flag + 1
End If
End If
End If
End Sub

可以这么写看看：
Private Sub Timer1_Timer()
if (flag-3)=0 then
flag=0
elseif flag = 0 then
Image4.Picture = Image1.Picture
elseif flag = 1 then
Image4.Picture = Image2.Picture
elseif flag = 2 then
Image4.Picture = Image3.Picture
flag=flag+1
end if
end sub

你写程序的习惯不好，这样出了问题不好找，要写成这样（空格出不来用-代替）
Private Sub Timer1_Timer()
If (flag - 3) = 0 Then
----flag = 0
Else
----If flag = 0 Then
--------Image4.Picture = Image1.Picture
----Else
--------If flag = 1 Then
------------Image4.Picture = Image2.Picture
--------Else
------------If flag = 2 Then
----------------Image4.Picture = Image3.Picture
------------End If
--------flag = flag + 1
----End If

End Sub

哪里少了个END IF 你自己看了

flag = flag + 1
End If
End Sub
最后这个地方 把 end if去掉即可