FUNCTION ShowDialog ( ) AS Integer