استفاده از اعداد برای استفاده از متن های ریسورس در آیتم های منو

در این آموزش متن آیتم های منو در Design عدد تعیین شده که در RunTime به متن تبدیل می شه...

https://aparat.com/v/vBJxP

Sub SetMemuItemTexts(coll As ToolStripItemCollection)

    For Each Item As ToolStripItem In coll

        If TypeOf (Item) Is ToolStripMenuItem Then

            Item.Text = My.Resources.ResourceManager.GetString(Item.Text)

            SetMemuItemTexts(DirectCast(Item, ToolStripMenuItem).DropDownItems)

        End If

    Next

End Sub