情報があんまり足りないので３つ仮定を置きました。

仮定１．MenuStrip上にMenuItem3というメニューが配置されている。
仮定２．フォーム上にTabControl1が配置されている。
仮定３．そのTabControl1の選択されているTabPage上にWebBrowserコントロールが配置されている。

 

Private Sub MenuItem3_Click(sender As System.Object, e As System.EventArgs) Handles MenuItem3.Click



    If MenuItem3.HasDropDownItems Then

        Return

    End If



    Dim childMenu As ToolStripMenuItem



    childMenu = New ToolStripMenuItem("Yahoo!")

    AddHandler childMenu.Click, Sub() Navigate("http://www.yahoo.co.jp")

    MenuItem3.DropDownItems.Add(childMenu)



    childMenu = New ToolStripMenuItem("Visual Basic 中学校")

    AddHandler childMenu.Click, Sub() Navigate("http://homepage1.nifty.com/rucio/main/main.htm")

    MenuItem3.DropDownItems.Add(childMenu)



    childMenu = New ToolStripMenuItem("Google")

    AddHandler childMenu.Click, Sub() Navigate("http://www.google.com")

    MenuItem3.DropDownItems.Add(childMenu)



    childMenu = New ToolStripMenuItem("@nifty")

    AddHandler childMenu.Click, Sub() Navigate("http://www.nifty.ne.jp")

    MenuItem3.DropDownItems.Add(childMenu)



    MenuItem3.ShowDropDown()

End Sub



Private Sub Navigate(url As String)



    Dim Browser As WebBrowser = Aggregate c In TabControl1.SelectedTab.Controls Where TypeOf c Is WebBrowser Into First()

    Browser.Navigate(url)



End Sub