[justforit]

وعليكم السلام ورحمة الله وبركاته

جرب الكود التالي :

كود :

Imports System.Runtime.InteropServices
Public Class Form1
   <DllImport("kernel32.dll", SetLastError:=True)>
   Private Shared Function SetThreadExecutionState(ByVal esFlags As EXECUTION_STATE) As EXECUTION_STATE
   End Function

   <Flags>
   Private Enum EXECUTION_STATE As UInteger
       ES_CONTINUOUS = &H80000000UI
       ES_DISPLAY_REQUIRED = &H2
       ES_SYSTEM_REQUIRED = &H1
   End Enum

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       'For هذا الزر الذي يحتوي على كود حلقة

       SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS Or
                               EXECUTION_STATE.ES_SYSTEM_REQUIRED Or
                               EXECUTION_STATE.ES_DISPLAY_REQUIRED)

       'For ضع هنا كود حلقة
       '=============================================





       '=============================================

       ' أخيرا إعادة الإسبات لوضعه الطبيعي
       SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS)

   End Sub
End Class

شكر الله لك  و بارك فيك
ان شاء الله ساجرب بالكود.