الاخ الكريم / انسان27
انسخ الكود بالشكل التالي ...
وشاهد المرفق هل هذا ما تقصده
ساعة الفورم.rar
Private Sub UserForm_Initialize()
With Me
On Error Resume Next
LbDate.Caption = Now
Me.Caption = " Sales invoice Date:- " & Format(Now(), "dd/ mm/ yyyy, hh:mm:ss ampm")
End With
End Sub