Try
            Dim MyService As New softserver.TestServerService
            Dim MyResult As String
            Dim myCache As New System.Net.CredentialCache
 
 
            MyService.PreAuthenticate = True
 
            myCache.Add(New Uri("http://localhost/testordner/xml/"), "Basic", _
              New System.Net.NetworkCredential("yourLogin", "yourPassword"))
 
            MyService.Credentials = myCache
 
            MyResult = MyService.login()
 
            ' output the total Results found
            MsgBox(MyResult)
 
        Catch ex As System.Web.Services.Protocols.SoapException
 
            MsgBox(ex.Message)
 
        End Try