Public Class Girl
 
    Dim Alter As Integer
 
    Public Sub setAlter(ByVal Alter As Integer)
 
        Me.Alter = Alter
 
    End Sub
 
End Class

Private Sub WebBrowser1_LoadCompleted(ByVal sender As System.Object, ByVal e As _
  System.Windows.Navigation.NavigationEventArgs) Handles _
  WebBrowser1.LoadCompleted
 
 
        oDoc = Me.WebBrowser1.Document
 
        Dim Boys(100) As Boy
        Dim Girls(100) As Girl
 
        Dim index As Integer = 0
 
 
        Dim onlineContacts = oDoc.getElementById( _
          "OnlineUser").getelementsBytagName("option")
 
        For Each contact In onlineContacts
 
 
            If Microsoft.VisualBasic.Left(contact.innerHtml, 1).ToLower = "m" _
              Then
 
 
                Boys(index).setAlter(Microsoft.VisualBasic.Mid( _
                  contact.innerHtml, 4, 2))
 
                index += 1
 
            Else
 
                Girls(index).setAlter(Microsoft.VisualBasic.Mid( _
                  contact.innerHtml, 4, 2))
 
                index += 1
 
            End If
 
        Next
 
 
    End Sub