Ayuda Con while en Una funcion o Procedure

[force1758]

Hola a todos de esta querida comunidad necesito ayuda con una Function o un procedure que quiero hacer, no dentro de una form sino directamente en el codigo sin colocar button nada de interfaz grafico ya que lo que busco es crea un bucle con while y para cuando yo quiera pararlo lo pueda, todo mediante senkey se los agradeceria mucho y discupen si esto no va aqui gracias y saludos