Visual Basic

Public Class Form1<br />
    Dim l As New List(Of hostels)<br />
    Private Sub RibbonDropDownButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RibbonDropDownButton1.Click<br />
        Dim i As Integer<br />
        Dim r As New Random<br />
        i = r.Next(0, 10)<br />
        For Each h As hostels In l<br />
            If h.id = i Then<br />
                MessageBox.Show(h.name)<br />
            End If<br />
        Next<br />
    End Sub<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Dim i As Integer<br />
        For i = 0 To 10 'just to fill the list with some values<br />
            l.Add(New hostels(i, "test" & i))<br />
            i += 1<br />
        Next<br />
    End Sub<br />
End Class<br />
<br />
<br />
Public Class hostels<br />
    Dim iid As Integer<br />
    Dim sname As String<br />
    Public Property id() As Integer<br />
        Get<br />
            Return iid<br />
        End Get<br />
        Set(ByVal value As Integer)<br />
            iid = value<br />
        End Set<br />
    End Property<br />
    Public Property name() As String<br />
        Get<br />
            Return sname<br />
        End Get<br />
        Set(ByVal value As String)<br />
            sname = value<br />
        End Set<br />
    End Property<br />
    Public Sub New(ByVal iid As Integer, ByVal sname As String)<br />
        Me.id = iid<br />
        Me.name = sname<br />
    End Sub<br />
End Class

Dim myService As New WebServiceName