Dim myCred As New NetworkCredential(SecurelyStoredUserName, SecurelyStoredPassword, SecurelyStoredDomain)Dim wsServices = New IWOV_SVC.IWOVServiceswsServices.Credentials = myCred