All pastes #928648 Raw Edit

Miscellany

public text v1 · immutable
·published 2008-03-05 05:34 UTC
rendered paste body
Private Sub LoadTasks()
    Dim intTotalTasks As Integer
    intTasks = 0                     ' Reset
    
    For intTasks = 1 To 12 - 1
        strTask = CStr(intTasks)
        strTaskname(intTasks) = Getstring(HKEY_LOCAL_MACHINE, "SOFTWARE\D-Code Software\Taskmaster Server\Tasks\", "Task" & strTask - 1)
        lstToDo.AddItem strTaskname(intTasks - 1)
    Next intTasks
    
End Sub