Проблема с оператором IF

[Boris_BGB]

Проблема в том, что программа выполняя нижеследующий код перескакивает с первой строчки If'a на его конец (End if)

Это только кусок кода (рабочий).

Код: Выделить всё

Dim i As Integer
Dim fin_x As Integer
Dim fin_y As Integer
Dim am_x, am_y As Integer


Private Sub Command1_Click()
fin_x = Food.Left
fin_y = Food.Top
am_x = Shape1.Left
am_y = Shape1.Top

If fin_x < Shape1.Left And fin_y < Shape1.Top Then
     [color=red]For am_x = Shape1.Left To am_x = fin_x[/color]
        cmnd_leftup
     Next am_x
Else
[color=red]End If[/color]
End Sub

Private Sub cmnd_leftup()
i = 1
For i = 1 To 51
  i = i + 1
  Shape1.Left = Shape1.Left - 2
  Shape1.Top = Shape1.Top - 2
Next i
End Sub



[GSerg]

А чего ты хотел? Куда ещё она должна перескакивать, если условие не выполняется?

[Boris_BGB]

Условие выполняется и начинает работать For ... , а затем перескакивает на End if.

[GSerg]

Тьфу ты, ёлки зелёные. Давненько такой ошибки не видел!

For am_x = Shape1.Left To am_x = fin_x

Выделенная часть равняется либо true, либо false. Так что всё правильно перескакивает. Правильно так:
For am_x = Shape1.Left To fin_x

[Boris_BGB]

Извинияюсь за ламерство.