Dim mySOAPService As New WS_SOAP()
Dim myCredentials As New System.Net.CredentialCache()
Dim netCred As New NetworkCredential(username, password)
myCredentials.Add(New Uri(mySOAPService.Url), "Basic", netCred)
mySOAPService.Credentials = myCredentials