(Type your message here)
 Dim x As Integer
       ' Loop through all items the ListBox.
       For x = 0 To ListBox1.Items.Count - 1
           ' Determine if the item is selected.
          i have this code in a button
how do i say that if i click on an item in the listbox display whether it is available or not in a msgbox...the Status of the item is in my hire table which also contain an itemid column

If ListBox1.GetSelected(x) = True Then

               Dim r As DataRow
               
               For Each r In ds.Tables("Hire").Rows
                   If r("ItemID") = ListBox1.SelectedValue Then
                       MsgBox("blah")
                   End If
               Next
             
           End If
       Next