Scusa ... forse non avevo compreso bene dall'inizio ... probabilmente tu volevi una cosa del genere
codice:Dim x As Studenti For Each x In [Enum].GetValues(GetType(Studenti)) Dim strMsgType As String = x.ToString() MsgBox(CStr(x) & " " & strMsgType) Next

