>How can I use if in only a line, as below
>
>On error "if error() = 1 do form1"

On Error Do myerrorhandler

Procedure myerrorhandler
Local Array aErrorinfo(7)
=Aerror(aErrorinfo)
If aErrorinfo[1]=1
 Do Form ...
Endif