Private Sub Command1_Click() If Text1.Text >= Text2.Text Then Label1.BackColor = vbGreen Else Label1.BackColor = vbYellow End If End Sub Private Sub Form_Load() Text1.Text = Date End Sub
EDIT: Please use code tags when posting like, like so =>


This post has been edited by PsychoCoder: 03 January 2008 - 10:34 PM