お気に入り用MenuItemクラス
   Private Class FavoriteMenuItem
        Inherits ToolStripMenuItem

        Private Fullname As String

        Public Sub New(ByVal Fl As FileInfo)
            MyBase.New(Fl.Name.Replace(Fl.Extension, ""))
            Fullname = Fl.FullName
            AddHandler Click, AddressOf ClickFavorite
        End Sub

        Private Sub ClickFavorite(ByVal sender As Object, ByVal e As EventArgs)
            Process.Start(Fullname)
        End Sub

    End Class


ドロップダウンメニュー追加処理
        Dim dinf As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.Favorites))

        For Each fl In dinf.GetFiles("*.url", SearchOption.AllDirectories)
            ToolStripSplitButton1.DropDownItems.Add(New FavoriteMenuItem(fl))
        Next