> Copy the following code in a sample form and run it:
>
> PUBLIC SUB Form_Open()
> DIM a AS Integer
>
> a = Test_sub()
> PRINT a
> a = Test_func()
> PRINT a
>
> END
>
> PUBLIC SUB Test_sub() AS Integer
> RETURN 1
> END
>
> PUBLIC FUNCTION Test_func() AS Integer
> RETURN 1
> END
>
>
>
Copy the following code in a sample form and run it:
PUBLIC SUB Form_Open()
DIM a AS Integer
a = Test_sub()
PRINT a
a = Test_func()
PRINT a
END
PUBLIC SUB Test_sub() AS Integer
RETURN 1
END
PUBLIC FUNCTION Test_func() AS Integer
RETURN 1
END
You'll see
