All pastes #928653 Raw Edit

Something

public text v1 · immutable
·published 2008-03-05 05:38 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 - 1) = Getstring(HKEY_LOCAL_MACHINE, "SOFTWARE\D-Code Software\Taskmaster Server\Tasks\", "Task" & strTask - 1)
        
        If intTasks = 0 Then
            MsgBox "Nothing to do!", vbExclamation, "Done"
            Exit For
        Else
            lstToDo.AddItem strTaskname(intTasks - 1)
        End If
    Next intTasks
    
End Sub