Add code here...

you remember when I ask about timer and the label look at this.

Private tt As Long
Private Sub Form_Load()
Text1.Text = Format(Time, "HH:mm:ss")
tt = 0
End Sub

Private Sub Text1_Change()
tt = 0
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
tt = tt + 1
Dim dd As Date
dd = DateAdd("s", tt, Format(Text1.Text, "HH:mm:ss"))
Label1.Caption = Format(dd, "HH:mm:ss")
End Sub

لم أفهم أية عبارة :(
هل يمكنك إعادة صياغة السؤال ثانيةً؟

إنت بتقول إيه يا راجل؟ كيف يعني؟ عاوز تجمع وقت مأخوذ من مؤقت وتضيفه على زمن النظام الحالي، وبعدين تظهر النتيجة في label أو أي مكان تاني؟

وأنا أيضاً لم أفهم السؤال جيداً؟ هل تعني كما حاول أحمد بسيوني أن يشرح؟

كما قال السادة المشاركين في الموضوع الشرح غير واضح تماماً ,
و لكن أعتقد أنك تريد قراءة الوقت الحالي للنظام ثم تعديله ثم إعادة ضبط وقت النظام كما تريد...
إذا كان هذا ما تريد فتابع معي , عليك إستخدام الـ APIs لقراءة الوقت الحالي للنظام بالتفصيل ...
استخدم هذا الكود

Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type
Private Sub Form_Load()
    Dim SysTime As SYSTEMTIME
    Me.AutoRedraw = True
    GetSystemTime SysTime
End Sub

بعد تنفيذ الأمر GetSystemTime سيصبح بإمكانك معرفة السنة مثلاً كما يلي :

SysTime.wYear

و الآن تقوم بمعالجتها و التعديل عليها كما تريد ثم تستخدم هذا الكود لإعادة ضبط و قت النظام :

Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
Private Sub Form_Load()
    Dim lpSystemTime As SYSTEMTIME
    lpSystemTime.wYear = 2005
    lpSystemTime.wMonth = 10
    lpSystemTime.wDayOfWeek = 3
    lpSystemTime.wDay = 10
    lpSystemTime.wHour = 12
    lpSystemTime.wMinute = 14
    lpSystemTime.wSecond = 40
    lpSystemTime.wMilliseconds = 0
    SetSystemTime lpSystemTime
End Sub

مع ضبط القيم كما تريدها ثم تقوم بتنفيذ الأمر SetSystemTime لضبط وقت النظام

أتمنى أن يكون هذا ما تريده,
مؤيد مارديني