Private Sub Form_Load()
Dim x As Long
Dim yy, mm, dd As String
yy = Year(Date)
mm = Month(Date)
dd = Day(Date)
 x = DateDiff("d", yy - mm - dd, "2011 - 2 - 2")
 Label2.FontSize = 14
 Label2.Caption = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日"
 Timer1.Enabled = True
 
 Label4.Caption = "距离春节还有" & x & "天"
End Sub

Private Sub Timer1_Timer()
 Text1.Text = Time
End Sub
得出的距离春节的时间不对，另外，请问怎么贴图片啊？

    Dim t As Long
    t = DateDiff("d", Now, #2/2/2011#)
    Debug.Print "距离春节还有" & t & "天"

多谢高手