VB Generic Function for converting an Integer to an Enum

IntToEnumOrNothing.vb

Module Module1

    Public Enum MediaType
        Audio
        Video
        Image
    End Enum

    Public Function IntToEnumOrNothing(Of T As {IConvertible, Structure})(ByVal value As Integer) As T?
        Dim ret As T? = Nothing
        If [Enum].IsDefined(GetType(T), value) Then
            ret = CType([Enum].ToObject(GetType(T), value), T?) ' CType(value, T) would not work in this context.
        End If
        Return ret
    End Function

    Sub Main()
        Dim x As MediaType? = IntToEnumOrNothing(Of MediaType)(1)
        Console.WriteLine("x = {0}", x.Value) ' --> x = Video
        Dim y As MediaType? = IntToEnumOrNothing(Of MediaType)(55)
        Console.WriteLine("y has value: {0}", y.HasValue) ' --> y has value: False
        Console.WriteLine("Press any key to exit...")
        Console.ReadKey()
    End Sub

End Module