[RESOLVED] popup msgbox for no selected item in listbox

[matrik02]

How do I got the pop up when no item is selected in the listbox?

For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            SelectLayerByName (ListBox1.List(i))
        End If
    Next

[anhn]

Try this:

    SelectedCount = 0
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            SelectedCount = SelectedCount +1
            SelectLayerByName (ListBox1.List(i))
        End If
    Next
    If SelectedCount = 0 Then
        MsgBox "No Item Selected"
    End If

[matrik02]

Thank you so much.. It work now