Detect Empty List Boxes

Is there a simple way to detect if a listbox is empty? Basically I have two list boxes, and I move data from one to the other and want to detect if one is empty. Any ideas?

Also how can I detect if in an array of checkboxes nothing has been checked?

If List1.ListCount = 0 Then MsgBox "Empty"

Never worked with arrays...I'll let someone else handle that one.

Simple example :


Private Sub Form_Click()
Dim i As Integer
Dim IsChecked As Boolean

IsChecked = False
For i = Check1.LBound To Check1.UBound
If Check1(i).Value = vbChecked Then
IsChecked = True
Exit For
End If
Next

MsgBox IsChecked
End Sub

Simple example :


Private Sub Form_Click()
Dim i As Integer
Dim IsChecked As Boolean

IsChecked = False
For i = Check1.LBound To Check1.UBound
If Check1(i).Value = vbChecked Then
IsChecked = True
Exit For
End If
Next

MsgBox IsChecked
End Sub

or

bolBoxIsEmpty = (lstMyListBox.ListCount > 0)

bolBoxIsEmpty = Not (List1.ListCount > 0)


I think is correct ;)

bolBoxIsEmpty = Not (List1.ListCount > 0)


I think is correct ;)
oh sure... that's correct... if you're the type of person who wants their program to work right... But who would want such a thing? :p

:) Thanks for the correction, but right after I posted I realized it was redudant, beacuse I hadn't seen Photovoltaic's post at first... Don't know how I missed that, posted too quickly again, I guess...

oh sure... that's correct... if you're the type of person who wants their program to work right... But who would want such a thing?

Thanks for the correction

lol. You're welcome ;)