call the SetTime method

لاداعي لوضع Label أو Command تستطيع اختبار ذلك باستخدام عبارة شرطية بداخل حدث Timer التابع لأداة المؤقت ..

بافتراض أن برنامجك يعمل في الخلفية(مخفي)..

If Time = #12:00:00 AM# Then Me.Show

اما بالنسبة لـSetTime method فلا اعتقد أن لهذه الطريقة وجود .. لكن هناك دالة تسمى SetTimer

وهذا مثال مبسط لكيفية التعامل مع هذه الدالة..

في Module

Declare Function SetTimer Lib "user32" (ByVal hWnd _
 As Long, ByVal nIDEvent As Long, ByVal uElapse As _
 Long, ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib "user32" (ByVal hWnd _
 As Long, ByVal nIDEvent As Long) As Long

Public MyTimer&

Public Sub ChgBkColor()
 Static I As Byte
 I = I + 1
 If I = 16 Then KillTimer 0, MyTimer: Exit Sub
 Form1.BackColor = QBColor(I)
End Sub

في النموذج (بعد ادراج زر أمر)

Private Sub Command1_Click()
 MyTimer = SetTimer(0, 0, 100, AddressOf ChgBkColor)
End Sub

اذا كان الامر بخلاف ذلك ارجو التوضيح .. وارجو الا يكن قصدك هو قدح البرنامج من تلقاء نفسه، فهذا مالا تستطيعه الفيروسات ناهيك عن برامج فيجوال بيسك ...مع ملاحظة انه يمكن وضع البرنامج في المهام المجدولة لتنفيذ البرنامج في زمن معين.

السلام عليكم

أخي العزيز الرد الأول هو الرد الصحيح أما بالنسبة للرد الثاني فجربته وعندما ضغطت على زر الكوماند أول مرة عمل بصورة جيدة ولكن عندما ضغط عليه مرة أخرى حصلت على رسالة خطأ مع أغلاق البرنامج لا أعلم السبب في ذلك فشكرا لك على الرد

أخوك جمال