Dim instance As TabBrowser = New TabBrowser()
Dim value As String
Dim returnValue As String

instance.UserAgent = value
returnValue = instance.UserAgent

'TabBrowserクラス UserAgentプロパティ

Imports System.Windows.Forms

Public Class AddIn

    Private tabb As TabBrowser

    Public Sub New()
        tabb = New TabBrowser()
    End Sub

	Public Sub AddIn_Start()
		MessageBox.Show("現在のユーザーエージェント：" & tabb.UserAgent)
		tabb.UserAgent = "Mozilla/2.0 (BTRON Basic Browser Version 1.0 Beta; B-right/V)"
		MessageBox.Show("現在の新しいユーザーエージェント：" & tabb.UserAgent)
	End Sub

End Class