[vb6] Alarm Clock source

[Violent_J]

Option Explicit


Private Sub cmdstart_Click()
    Timer1.Enabled = True
    lblstatus.Caption = "started"
End Sub

Private Sub cmdstop_Click()
    Timer1.Enabled = False
    Timer2.Enabled = False
    lblstatus.Caption = "stopped"
End Sub



Private Sub Timer1_Timer()
    txttime.Text = Time
        If txttime.Text = txtinput.Text Then
            Timer2.Enabled = True
    End If
End Sub


Private Sub Timer2_Timer()
    Play App.Path & "\sound.wav"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim frmTemp As Form
    For Each frmTemp In Forms
        Unload frmTemp
        Set frmTemp = Nothing
    Next
    End
End Sub