GBKEE

¦^´_ 1# shadowming
ªí³æ¤¤½Ð ¥[¤J¤@¦W¬° CommandButton1 ªº CommandButton ±±¨î¶µ
         ¥[¤J¤@¦W¬° Label1 ªº Label ±±¨î¶µ

1. Private Sub CommandButton1_Click()
   
2.     End
   
3. End Sub
   
4. Private Sub UserForm_Activate()
   
5.     Do
   
6.         Label1.Caption = Now()
   
7.         DoEvents
   
8.     Loop
   
9. End Sub
   
10. Private Sub UserForm_Initialize()
    
11.     With Label1
    
12.         .Caption = Now()
    
13.         .Font.Size = 12
    
14.         .TextAlign = 2
    
15.     End With
    
16. End Sub

½Æ»s¥N½X