Yeah I know it's a stupid title.

And anyway, to be more true to the procedural paradigm it should be something like this:

Public Overrides Function ResultOf(ByVal a As Activities) as Moods
    If a = Activities.Programming Then Return Moods.Happy Else Return Moods.Meh
End Function

Yeah it's VB.net. Yes I'm trying to say that I like programming.