'引数なし Public Sub New() End Sub Public Sub New(Byval URL As String) 'タブブラウザなので、新しくタブを作り、表示するというふうになるように置換してください。 WebBrowser1.Navigate(URL) End Sub