Darryl,
In deleteEntry You are passing in pItemNumber As string but you
should have passed in pWhichItem as string
I think it should be
Sub deleteEntry(pWhichItem As string)
dim i,u As Integer
u = UBound(pToDoItems)
for i = u DownTo 0
if pToDoItems(i).pItemNumber = pWhichItem then // pItemNumber = a
property of the ToDoListItem class
pToDoItems.Remove i
fileHasChanged = True
bbTDSave.Enabled = True
Exit
end if
next
End Sub
--
Cheers,
Dr Gerard Hammond
Bioinformatic Analyst
Garvan Institute of Medical Research, Sydney, Australia.
If it's worth doing, then it's worth doing with excess.
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
