Hi

This sample had a list box, style was set to checkbox there are also to
labels the first counts the number of Items in the list
the second is in the list1_itemCheck(item as integer) this counts the
remaining unchecked items...

this might give you some ideas

Option Explicit

Private Sub Form_Load()
With List1
    .AddItem "duncan"
    .AddItem "Jim"
    .AddItem "Karl"
    .AddItem "Nancy"
End With

Label1.Caption = List1.ListCount
Label2.Caption = List1.SelCount
End Sub

Private Sub List1_ItemCheck(Item As Integer)
Label2.Caption = Val(Label1.Caption - List1.SelCount)
End Sub


Hope this helps Duncan


> -----Original Message-----
> From: vishalgandhi@m...
> [mailto:vishalgandhi@m...]
> Sent: 18 May 2001 10:57
> To: professional vb
> Subject: [pro_vb] ListBox Unchecked Items
> 
> 
> Hello Group ,
> I am using an List Box Control for Selecting Items
> My Prob is that in event listbox_ItemCheck(item as Integer)
> i want to retrieve the count of Unchecked Items .
> This is Urgent . I use an Variable for SelCount .
> Like Count should be Incremented When a Check Box is Clicked
> and decremented when Check Box is Off .
> 
> Thanks and Regards
> Vishal Gandhi
> 
> 
>