Public Enum Fruit Red_Apple = 1 Oranges Ripe_Banana End Enum Private Sub InitCombosRegular() Dim d1 As New Dictionary(Of Int16, String) For Each e In [Enum].GetValues(GetType(Fruit)) d1.Add(CShort(e), Replace(e.ToString,...

Я всегда думал, что DirectCast() был довольно недорогим, с точки зрения перфорации и памяти, и видел в этом способ помочь мне с IntelliSense, например в обработчиках событий: Public Sub myObject_EventHandler(sender As Object, e As...