All pastes #929004 Raw Edit

Unnamed

public text v1 · immutable
·published 2008-03-05 13:50 UTC
rendered paste body
Private Sub LoadTasks()
    Dim intTotalTasks As Integer
    intTasks = 0                     ' Reset
    
    For intTasks = 1 To 11 - 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