I believe this is what your talking about
Private Shared Sub Main(ByVal args As String())
           'init web service proxy
           Dim serviceProxy As New Service()

           'init UsernameToken, password is the reverted
           'string of username, the same logic in AuthenticateToken
           ' of ServiceUsernameTokenManager class.
           Dim token As New UsernameToken("admin", "admin",
PasswordOption.SendPlainText)

           ' Set the token onto the proxy
           serviceProxy.SetClientCredential(token)

           ' Set the ClientPolicy onto the proxy
           serviceProxy.SetPolicy("ClientPolicy")

           'invoke the HelloMyFriend web service method
           Try
               Console.WriteLine(serviceProxy.HelloMyFriend())
           Catch ex As Exception
               Console.WriteLine(ex.Message)
           End Try
       End Sub

Hope this helps