I have a simple program, When i check a check box the item goes into the liost and when i re-click it doesn't, How do i do this?
Current code for the check box
Private Sub Check1_Click()
If Check1.Value = 0 Then
LBLtotalprice.Caption = Val(LBLtotalprice) - 79.99
List1.RemoveItem
Else
Check1.Value = 1
LBLtotalprice.Caption = Val(LBLtotalprice) + 79.99
List1.AddItem "Water Fountain"
End If
End Sub
It's a tricky one, because RemoveItem goes on ListIndex. I've worked out a longwinded way to do it, but I'll think of a shorter way soon (Mine involves writing to text files and all sorts of rubbish lol)
Yes (14) | ![]() | |
No (14) | ![]() | |
I don't know (15) | ![]() |