Heppy.
En Sub Process_Globals poner:
Dim Awake As PhoneWakeState
Donde quieras del programa:
Awake.KeepAlive(True) 'la pantalla nunca se para
Awake.KeepAlive(False) 'la pantalla no se para, pero brilla menos
Awake.ReleaseKeepAlive 'deja que la pantalla se pueda parar
Saludos