هذا الكود يجعل الفورم الذي أعمله في مقدمة كل شيء علي سطح المكتب
مما جعلتي أعمله بوقت وعندما ينتهي الوقت تظهر الفورم علي سطح المكتب او اي شيء مفتوح وتغطيه
محاولة في عمل برنامج لكي أضبط الكمبيوتر بوقت وعندما ينتهي يظهر الفورم في المقدمة فلا يستطيع أحد استخدام الكمبيوتر الا بعد وضع الرقم السري
ولكن
قد غطي الكود كل شيء ولكن عندما أكون مشغل لعبة لا يستطيع ان يغطيها او يظهر أمامها
مرفق الكود
والرقم السري
6497389
للدخول
6497389010
لاغلاق البرنامج
والوقت بالدقيقة
الكود
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
SetWindowPos Form1.hwnd, -1, 0, 0, 0, 0, 3
End Sub