Module Module1
Structure calendarioEspañol
Public Enum SemanaEspañol
Lunes = 1
Martes = 2
Miércoles = 3
Jueves = 4
Viernes = 5
Sábado = 6
Domingo = 7
End Enum
Public Function convert(ByVal diaSemana As SemanaEspañol) As String
Return diaSemana.ToString
End Function
Dim comentario As String 'no hace nada, pero una estructura necesita un miembro.
End Structure
End Module