lui vuole che alla pressione del punto compaia, a mo' di intellisense, la lista di stringhe.
lo puoi fare con la Reflection, ma non si applica molto al tuo scenario.
Fa una Enumeration pubblica nel modulo e nella Select
Esempio:
codice:
Imports System
Module Avviso
Public Enum Tipologia
Tipo1
Tipo2
Tipo3
End Enum
Sub Main()
'main
End Sub
End Module
e poi:
codice:
Select Case Avviso.Tipologia
Case <qui dovrebbe darti tutti i valori e ne scegli uno>
Azioni per 1
Case <qui dovrebbe darti tutti i valori e ne scegli uno>
Azioni per 2
End Select