I regularly include funny little things and easter eggs in updates out of boredom, like sending people to get rick-rolled, or opening/closing programs for fun, or making a constantly moving checkbox that appears at random locations of the screen a few times a second to try to catch. This is the latest one, really simple, you can include a timer event if you want the screen to really go crazy, but you should probably include an Epilepsy warning if you do. Anyone else do anything fun to mess with their co-workers? :).

This randomly assigns one of the background colors, and each button it's own background color. You could make it a lot more advanced but this was just a quick one :P.

        Dim randomValue, randomValue2

        Randomize
        randomValue = Int((6 - 1 + 1) * Rnd + 1)
        
        If randomValue = 1 Then
            Me.Detail.BackColor = vbRed
        ElseIf randomValue = 2 Then
            Me.Detail.BackColor = vbWhite
        ElseIf randomValue = 3 Then
            Me.Detail.BackColor = vbGreen
        ElseIf randomValue = 4 Then
            Me.Detail.BackColor = vbBlack
        ElseIf randomValue = 5 Then
            Me.Detail.BackColor = vbYellow
        ElseIf randomValue = 6 Then
            Me.Detail.BackColor = vbBlue
        End If

        Dim ctl As Control
        For Each ctl In Me
            If TypeOf ctl Is CommandButton Then
            randomValue2 = Int((6 - 1 + 1) * Rnd + 1)
                If randomValue2 = 1 Then
                    ctl.BackColor = vbWhite
                ElseIf randomValue2 = 2 Then
                    ctl.BackColor = vbRed
                ElseIf randomValue2 = 3 Then
                    ctl.BackColor = vbBlue
                ElseIf randomValue2 = 4 Then
                    ctl.BackColor = vbGreen
                ElseIf randomValue2 = 5 Then
                    ctl.BackColor = vbBlack
                ElseIf randomValue2 = 6 Then
                    ctl.BackColor = vbYellow
                End If
            End If
        Next ctl
        
        'If using a timer event you can include this for extra chaos :)
        'If randomValue = 1 Or randomValue = 2 Or randomValue = 3 Then
        '    DoCmd.Maximize
        'Else
        '    DoCmd.Restore
        'End If