FYI .. there is a bug in the GetSchedules function that causes the program to fail when reading the registry to obtain the list of defined schedules. If no schedules exist, a fatal error is generated.
The GetSchedules function needs to be replaced in the modCount module.
Public Function GetSchedules() As Variant
Dim MySettings As Variant, intSettings As Integer
Dim Dummy(0, 0) As Variant
MySettings = GetAllSettings("ScheduleCreator", "Schedules")
On Error GoTo EmptyVar
If UBound(MySettings, 1) >= 0 Then
GetSchedules = MySettings
End If
GoTo EndSub
EmptyVar:
GetSchedules = Dummy
EndSub:
End Function
In the calling function (form initialize), replace the For X loop at the end of the function with this:
For X = 0 To UBound(Schedules, 1)
If Schedules(X, 0) <> "" Then
Set Lbl(X + 1) = New ScheduleLink
ReDim Preserve Lbl(0 To (UBound(Lbl) + 1))
Lbl(X + 1).Caption = Schedules(X, 0)
Lbl(X + 1).Tag = Schedules(X, 0)
End If
Next X
I have added some other functions, just as soon as I get them all ironed out I will post the new code.