Private Sub LoadTasks()
    Dim intTotalTasks As Integer
    intTasks = 0                     ' Reset
    
    For intTasks = 1 To 12 - 1
        strTask = CStr(intTasks)
        strTaskname(intTasks - 1) = Getstring(HKEY_LOCAL_MACHINE, "SOFTWARE\D-Code Software\Taskmaster Server\Tasks\", "Task" & strTask - 1)
        
        If strTaskname(intTasks - 1) <> "" Then
            lstToDo.AddItem strTaskname(intTasks - 1)
        Else
            Exit For
        End If
    Next intTasks
End Sub