بسم الله الرحمن الرحيم
ستتعلمون اليوم معي كيف تصممون ساعة عقارب بــ الفيجوال
افتح الفيجوال لبيسك
افتح مشروع جديد ثم ادوات اكتفي اكس
ثم
Interval = 1000 ثم وحدد خاصية timerثم ضع اداة التوقيت
ثم ضع ايضاً
(line) عدد3 لايهم موقعها ولا طولها ودع خصائصها كما هي باستثناء
اللون والسماكة او العرض ان احببت تغييرها
ثم انسخ الكود التالي وضعيه في صفحة الكود 
Public XS
Public YS
Private Function DtoR(X)
Pi = 3.1415
RAD = Pi / 180
DtoR = X * RAD
End Function
Private Sub Timer1_Timer()
W = Timer
X = W / 120
Y = W * 6
Z = W / 10
A = Sin(DtoR(X))
B = -(Cos(DtoR(X)))
Line1.X2 = (A * 600) + XS
Line1.Y2 = (B * 600) + YS
C = Sin(DtoR(Y))
D = -(Cos(DtoR(Y)))
Line3.X2 = (C * 800) + XS
Line3.Y2 = (D * 800) + YS
E = Sin(DtoR(Z))
f = -(Cos(DtoR(Z)))
Line2.X2 = (E * 800) + XS
Line2.Y2 = (f * 800) + YS
End Sub
Private Sub UserControl_Paint()
XS = Width / 2
YS = (Height / 2) - 120
For AB = 0 To 359 Step 30
A = Sin(DtoR(AB))
B = -(Cos(DtoR(AB)))
If AB = 0 Then CNT = 360 Else CNT = AB
TX$ = Trim(Int((CNT) / 30))
Line ((A * 800) + XS, (B * 800) + YS)-((A * 1000) + XS, (B * 1000) + YS), RGB(0, 0, 0)
CurrentX = (A * 1200) + XS - (TextWidth(TX$) / 2)
CurrentY = (B * 1200) + YS - (TextHeight(TX$) / 2)
Print TX$
Next AB
Line1.X1 = XS
Line1.Y1 = YS
Line2.X1 = XS
Line2.Y1 = YS
Line3.X1 = XS
Line3.Y1 = YS
Call Timer1_Timer
End Sub
عند الانتهاء من العمل ومشاهدة النتيجة يمكنك حزم الملف لاستخدامه كأداة
(ocx)
في اي مشروع ثاني بالطريقة التالية 
من (file) ا
ستدعي الامر (make Project1.ocx) واكتب الاسم الذي تريده بالانكليزي
بهذا يكون العمل قد اكتمل
و الف مبروك عليك العمل يا بطل 
ارجو انكم استفدتم من موضوعي
محبكم فى الله
Black Man
