VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 'Windows Default Begin VB.Timer Timer1 Interval = 1 Left = 2100 Top = 855 End Begin VB.CommandButton Command1 Caption = "Command1" Height = 495 Left = 1740 TabIndex = 0 Top = 1350 Width = 1215 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() If Date = "2001-6-17" Then End End Sub Private Sub Timer1_Timer() If Time = "22:40:12" Then End End Sub
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.Timer Timer1
Interval = 1
Left = 2100
Top = 855
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 1740
TabIndex = 0
Top = 1350
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Date = "2001-6-17" Then End
End Sub
Private Sub Timer1_Timer()
If Time = "22:40:12" Then End
End Sub
核心
xxlroad:
Good!