Private Sub userform_Initialize()
    With Me
        .Width = Application.UsableWidth + 3
        .Height = Application.Height '+ 10
        Top = 0
        Left = 0
    End With
    
    Label1.Width = window1.Width
    Label1.Top = Int(window1.Height / 2) - Int(Label1.Height / 1.5)
    
    Label1.Left = 0
    
    TextBox1.Top = window1.Height + 100
        
        
    TextBox1.SetFocus
    Label1 = ""
  
End Sub
Private Sub textbox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Label1.ForeColor = RGB(255, 0, 0)
   
    'MsgBox (Str(KeyCode))
    Select Case KeyCode
        
        Case 83
            If flash_running = 1 Then
                flash_running = 0
                Application.OnTime Now + TimeValue("00:00:01"), "flash", schedule:=False
            End If
            set_clock
            
        Case 68  ' use d
        
          close_clock
          
        Case 67  ' use c

                If count_down_running = 1 Then
                    Application.OnTime Now + TimeValue("00:00:01"), "start_count_down", schedule:=False
                  
                    count_down_running = 0
                Else
                    If flash_running = 1 Then
                        flash_running = 0
                        Application.OnTime Now + TimeValue("00:00:01"), "flash", schedule:=False
                    End If
                End If
        
            Label1 = "***"
            
        Case 69 'use e
        
            count_down_running = 0
            flash_running = 0
            
            
        
    End Select
End Sub

Sub close_clock()

    window1.Hide
    
End Sub