help with error please

[sarkis]

I cannot find an error

Here is a compiling error
---------
Compiling code. Error
Error parsing program.
Error description: Missing Keyword: end sub
Occurred on line: 192
End If
---------

Sub Check_Move As Boolean
If (Grid(prevSun+1, prevTox).Enabled=True) OR
(Grid(prevSun-1, prevTox).Enabled=True) OR
(Grid(prevSun, prevTox+1).Enabled=True) OR
(Grid(prevSun, prevTox-1).Enabled=True) Then
Return True
Else
Return False
End If
End Sub

Thanks

 

[NJDude]

This line should be like this:

Sub Check_Move

I'm assuming your IF...THEN is in one line, otherwise you need a line continuation using an underscore after OR, like:

If (Grid(prevSun+1, prevTox).Enabled=True) OR _
(Grid(prevSun-1, prevTox).Enabled=True) ...

 

[sarkis]

you are right !

You are right ,thank you
But what a stupid syntax is?
Anyway thanks a lot