MessageBox To IEnumerable(Of Func(Of DialogResult))
الكود التالي يوضح كيفية تحويل بعضا من او عدد معين من MessageBox الي مصفوفة ثم كيفية استدعاء كل رسالة علي حدة عن طريق تمرير اسم الرسالة باستخدام Enum Friend Function GetMessage(kind As MessagesKind ) As DialogResult Select Case kind Case MessagesKind .FirstMessage Return GetMessages()( CInt ( MessagesKind .FirstMessage))() Case MessagesKind .SecondMessage Return GetMessages()( CInt ( MessagesKind .SecondMessage))() Case MessagesKind .ThirdMessage ...