Public Class Form1 Private Declare Function SetThreadExecutionState Lib "kernel32" (ByVal esFlags As Int32) As Int32 Public Enum EXECUTION_STATE As Integer ES_CONTINUOUS = &H80000000 ES_DISPLAY_REQUIRED = &H2 ES_SYSTEM_REQUIRED = &H1 ES_AWAYMODE_REQUIRED = &H40 End Enum Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load SetThreadExecutionState(EXECUTION_STATE.ES_DISPLAY_REQUIRED Or EXECUTION_STATE.ES_CONTINUOUS) End Sub Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS) End Sub End Class