MYCLOCK - WORK IN PROGRESS



Private Sub Command23_Click()
Forms.Item(x).Picture = "C:\temp\Moose.jpg"
End Sub

Private Sub Form_Timer()

Label5.Caption = Format(Time, "hh:mm AM/PM")
Label24.Caption = Format(Date, "mmmm d, yyyy")

If Frame1.Value = 1 Then Label26.ForeColor = RGB(0, 255, 0): Label24.ForeColor = RGB(0, 255, 0): Label5.ForeColor = RGB(0, 255, 0): Label5.BackColor = RGB(0, 0, 0): Detail1.BackColor = RGB(0, 0, 0): Label19.ForeColor = RGB(0, 255, 0): Label21.ForeColor = RGB(0, 255, 0): Forms.Item(x).Picture = "C:\temp\Hawk.jpg"
If Frame1.Value = 2 Then Label26.ForeColor = RGB(0, 0, 153): Label24.ForeColor = RGB(0, 0, 153): Label5.ForeColor = RGB(0, 0, 153): Label5.BackColor = RGB(255, 255, 255): Detail1.BackColor = RGB(255, 255, 255): Label19.ForeColor = RGB(0, 0, 153):: Label21.ForeColor = RGB(0, 0, 153): Forms.Item(x).Picture = "C:\temp\Moose.jpg"
If Frame1.Value = 3 Then Label26.ForeColor = RGB(255, 0, 0): Label24.ForeColor = RGB(255, 0, 0): Label5.ForeColor = RGB(255, 0, 0): Label5.BackColor = RGB(0, 0, 0): Detail1.BackColor = RGB(0, 0, 0): Label19.ForeColor = RGB(255, 0, 0): Label21.ForeColor = RGB(255, 0, 0): Forms.Item(x).Picture = "C:\temp\wolves3.jpg"

End Sub