كود جميل ورائع جربه واعرف بنفسك ماذا يعمل

' بدون تعديل ضع هذا الكود في الفورم
الرجاء وضع تايمرين قبل التشغيل

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
Timer2.Interval = 100
Timer2.Enabled = True
Form1.Hide
End Sub
Sub Timer1_Timer()
Dim Position As POINTAPI
GetCursorPos Position

Ellipse GetWindowDC(0), Position.x - 7, Position.y - 7, Position.x + 5, Position.y + 5
End Sub



'

مشكور يا غالي على هذا الكود المثير و ممكن سؤال
انا فيني بس اكبس على سبيل المثال كونترول لتتوقف الدوائر

يمكنك من هذا الكود ان توقف الدوائر عن طريق الضغط على زر كونترول بشرط تغير
قيمة الفورم في الكود الاساسي من hid الى show
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 17 Then
Email = InputBox("Enter Your Name :", "")
End If
end sub

هههههههههههه ماستر

ملك البرمجي

احم