VBNET code security.tokens from microsoft.web.services2 to microsoft.web.services3

See more:

VB

.NET

I have to rewrite this code from Web.Services2 to Web.Services3 upgrade:

Dim st As Tokens.UsernameToken = New Tokens.UsernameToken(user, pwd, Tokens.PasswordOption.SendPlainText)
envelope.Context.Security.Tokens.Add(st)
Dim sf As SecurityOutputFilter = New SecurityOutputFilter
sf.ProcessMessage(envelope)

This code add security toket to my envalope structure.
In addition, envelope.Context.Security it's marked with obsolete.
How obtain the same envelope with Web.Service3 version?

Thank you everyone.

What I have tried:

Dim st As Tokens.UsernameToken = New Tokens.UsernameToken(user, pwd, Tokens.PasswordOption.SendPlainText)
envelope.Context.Security.Tokens.Add(st)
Dim sf As SecurityOutputFilter = New SecurityOutputFilter
sf.ProcessMessage(envelope)