Visual Basic

Private Sub frm_download_Data_Load(sender As Object, e As EventArgs) Handles Me.Load

       'Suppress the Script Errors
       SuppressScriptErrorsOnly(WebBrowser1, False)

       'Navigate the the Reseller Login Page
       WebBrowser1.Navigate(ddl_URL.Text)

   End Sub
   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) _
       Handles WebBrowser1.DocumentCompleted

       If Not (WebBrowser1.Url.AbsoluteUri = "about:blank") Then
           If (e.Url.AbsolutePath = WebBrowser1.Url.AbsolutePath) Then

               Select Case WebBrowser1.Url.AbsoluteUri

                   Case "http://page.asp"

                       //Run the Automation
                       AddHandler CType(sender, WebBrowser).Document.Window.Error, AddressOf Window_Error
                       http_automation_login.automate(WebBrowser1, g_userName, g_password)
                       RemoveHandler CType(sender, WebBrowser).Document.Window.Error, AddressOf Window_Error

               End Select

           End If
       End If

   End Sub

Friend Class MyTestClass
    Public Property nr As Integer
    Public Property name As String
End Class

Dim mytest As New List(Of MyTestClass)

Dim k as integer=2

Dim s as string="123"

Private sub1()

     Dim item As MyTestClass = New MyTestClass With {.nr = k, .FieldName =s}

     mytest.Add(item)

     Messagebox.show(mytest.contains(item))

 End sub

Private Sub2 ()
    Dim item As MyTestClass = New MyTestClass With {.nr = k, .FieldName =s)

      Messagebox.show(mytest.contains(item))

End sub