Private Sub About_Click()
Form3.Show
End Sub
Private Sub End_Click()
End
End Sub
Private Sub Signal_Click()
Form2.Show
End Sub

Private Sub Timer1_Timer()
tim.Caption = Time
dat.Caption = Date
md = Form2.Text1.Text
If Time = Text1.Text And Not AlarmSounded Then
Beep
Text1.Text = ""
AlarmSounded = True
If Form2.Check1.Value = 1 Then
Select Case MsgBox(" Время " + Str(Time) _
& vbCrLf & "" & vbCrLf & "Выберите 'Повтор' для повтора сигнала через" + Str(md) + " мин, " _
& vbCrLf & "Выберите Отмена для выключения будильника", 53, "Время")
Case 4
mm = Minute(Time)
If (Minute(Time) + md) >= 60 Then mm = (Minute(Time) + md) - 60
Text1.Text = Str(Hour(Time)) + ":" + Str(Second(Time))
Text1 = CDate(Text1.Text)
Case 2
End Select
Else
MsgBox "Время " + Str(Time), 48, "Время"
End If
End If
End Sub

Private Sub Command1_Click()
Form2.Hide
Timer1.Enabled = True
If Text1.Text = "" Then Exit Sub
If Not IsDate(Text1.Text) Then
MsgBox "Неверный формат времени!", vbCritical, "Внимание!"
Else
Text1 = CDate(Text1.Text)
End If
End Sub