ابتدا کتابخونه Phone رو تیک بزنید.

و بعد به صورت زیر عمل میکنیم :

 

Sub Globals

Dim PW As PhoneWakeState
         
End Sub

برای جلوگیری از خاموش شدن گوشی در سرویس یا اکتیویتی :

pw.KeepAlive(True)

 

برای غیرفعال کردن حالت بالا :

pw.ReleaseKeepAlive