Anonymous

Option Explicit

Private Sub chkAlarm_Click()
    If chkAlarm.Value = 1 Then
        txtAlarmTime.BackColor = &HFFFFFF
        txtAlarmTime.Enabled = True
        txtAlarmTime.Text = frmEasyClock.txtAlarmTime.Text
    ElseIf chkAlarm.Value = 0 Then
        txtAlarmTime.Enabled = False
        txtAlarmTime.BackColor = &H8000000F
    End If
    
End Sub

Private Sub cmdOK_Click()
    Unload Me
End Sub

Private Sub cmdSaveSettings_Click()
    SaveRegString HKEY_LOCAL_MACHINE, "Software\D-Code Software\Easy Alarm Clock", "Sound Fx", lstSounds.Text
    SaveRegString HKEY_LOCAL_MACHINE, "Software\D-Code Software\Easy Alarm Clock", "Auto Alarm", chkAlarm.Value
    SaveRegString HKEY_LOCAL_MACHINE, "Software\D-Code Software\Easy Alarm Clock", "Auto Alarm Time", txtAlarmTime.Text
    SaveRegString HKEY_LOCAL_MACHINE, "Software\D-Code Software\Easy Alarm Clock", "Auto Alarm Enabled", chkAlarm.Value
    
    cmdSaveSettings.Enabled = False
    frmOptions.lblSelectedSound.Caption = strSoundSel
End Sub

Private Sub Form_Load()
    lstSounds.ListIndex = 0
    txtAlarmTime.Text = frmEasyClock.txtAlarmTime.Text
    txtAlarmTime.Enabled = False
    txtAlarmTime.BackColor = &H8000000F
    
    Dim strAlarmTime As String, strAlarmAuto As String
    
    strSoundSel = GetRegString(HKEY_LOCAL_MACHINE, "Software\D-Code Software\Easy Alarm Clock", "Sound Fx")
    lblSelectedSound.Caption = strSoundSel
    strAlarmTime = GetRegString(HKEY_LOCAL_MACHINE, "Software\D-Code Software\Easy Alarm Clock", "Auto Alarm Time")
    strAlarmAuto = GetRegString(HKEY_LOCAL_MACHINE, "Software\D-Code Software\Easy Alarm Clock", "Auto Alarm Auto")
    chkAlarm.Value = GetRegString(HKEY_LOCAL_MACHINE, "Software\D-Code Software\Easy Alarm Clock", "Auto Alarm Enabled")
End Sub