change the user-agent name

I’m making a small application with ‘HTMLViewer’ I would like to change the name of the User-agent that I send to the site, as I render using the Native Render.
how can i do this?

or found an example, sorry again:

If Me.IsAvailable Then
Dim agent As String
agent = “test Agent”
Me.UserAgent = agent
End If

http://documentation.xojo.com/index.php/HTMLViewer.UserAgent

I may be wrong, but the Safari UserAgent string (the example from the link you provide) is:

Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_6) AppleWebKit/604.4.7 (KHTML, like Gecko) Version/11.0.2 Safari/604.4.7

Check an explanation @ wikipedia: User Agent .

You can also go to http://www.useragentstring.com/ where they have a list of User Agent strings.